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Herr R. Fortelny aus Wien schrieb uns: 





für Ihre beiden 
Sie sind genau 


uerst einmal ein großes Kompliment 
eitschrilien "CPU" und "Homecempute: f 
das,wes sch ein Homecompwser-Besitzer wünscht Auch hier 
bei uns in Österreich bestcht große Nachfrage nach diesen 
Zeischrilten, wie man bei den Vertriebstellen hör 
Doch nun za meinem Hauptanliegen 

Ich bin Besitzer eines 48K Specirum. Als ich die letzie 
Nummer von Homeomauter I/83 kuulic. war ich sofort von 
Ion Programmen für den VC-20 SURVIVALvon 
STAR TRAMP begeistert. Könnte man vielleicht diese beiden. 
Programme in einem der nächsten Hefte, für den Specirum 
umgeschrieben bekommer. oder würden Siz den Verschlag 
von Herrn Schäfer aus MC 0/85 nachkommen, die 
gleichwertigen Basic-Refehle der führencen Microccmputer 
gegenüberzustellen. Ich kann mich nur wegen dieser beiden 
Superprogramme für den VC-2D der Meirung vor Herrm 
Schäler anschlielien. Es wäre wirklich super. wenn man die 
versch edenen Programınıme andere Heincompuleraulden 
eigenen umsch-eiber könnte. 

Im äbrigen: Macht weiter soll! 












































Redaktion: Über Ihre neiten Zeilen haben wirunssch 
Zu Ihrer Frage: Wie Sie feststellen konrten, haben 
Gegenübersiellang der Busie-Befchle schon in unse 
Planung gehabt und werden diese ab "Homcompurter 
10/83in Fortsetzung abdru 
































2 Homecomputer 








Herr E. Kappler zu "Homecomputer": 





Ver kurzem habe ich mir den Homecomputer TI 99/4A 
gekauft. Seither blattere ich naturlich in allen Computer- 
zeitschriften die iey sche, Als ich Euer "Homecomputer” 
gelesen habe. war ich hell begeistert. Soviel Programm. und 
interessante Kleinanzeigen habe ich in kziner anderen 
Zeitschrift vorher geschen. 

Im Namen sicher zller Leser. nöchte ich mich hiermit bei 
Ihacn und den Einsenden deı Progsamme bedanken. 
Ganz 4oll finde ich auch den Leser-Soflware-Service. 
























Herr F. 





.ehne aus Ilarsum: 





Normalerweise ist es nicht meine Art Leserbriefe zu 
schreihen. weil ich dafür viel zu faılbin Heute hebeict mich 
dazu doch einmal entschlosser: E 








Zunächst möchte ich Ihren und den anderen Miturbeitern 
ein Lob aussprechen. Es ist Euch ge ungen eine Compu.eı- 
zeitschrift herauszubringen. die einzigartg auf dem deut- 
schen Markt ist. Als ich aber die leizten beiten Ausguben 
aufschlug, mußteich feststellen. daß die Leserbriefseite fehlic, 
Das Erste was m.ch an tıner Zeitschnilt interessiert. sind die 
Lescibrizfe, da ich die Meinung anderer Leser wichtig Iinde, 
Esmäßte doct möglich sei 
eirzubeziehen. 











‚diese Seite wiedermit in das Heft 














Als nächstes wende ich mich den Programmen zu. Als 
Besizer eines VC-20 f:eute ich mich besonders über die 
generztor. Assembler ıs 
Auch die anderen Programme hate ich teilweise ahgeti 
und ausprobiert, Allerdings muß ‚ch bei Programmen. 
denzn ein neuer Zeichensatz definiert worden ist. berängeln. 
daßcdlie Graf kzeichen schrschlechtzuunterscheidensind. Ist 
es hiernicht mäglich.die entsprechende Buchstabentaste niit 
der dazugeaörenden Shili- oder Commodore 
abzudrucken? 

Ansonsten finde ich Eure Zeitschriftprima. Macht weiter sol 


Anwenderpiveramms ( 


Redaktion: Wir sind der gleichen Meinung wie S 
auch, daßden Leserbrieten ein beständiger Plutz 
schrift eingeräumt werden muß. Das in den le 
Ausgaben von Homcomputer keine Leserbriefe 
worden sind, war auf ein technisch 


und finden 
neinerZeit 
ten heiden 
gedruckt 
Problem zurück- 



















zulühren, wofür wir uns bei allen Lesern nochmals 
nacatriglich ertschuldiger möchten. 
Zu Ihrer Frage bezüglich der Grafikzeichen: Wir versuchen 


alles erdenklich mögliche zu tun, um die Proprammlis:i 
deutlich abzudrucken. gel. urlesbare Gralikz 
korrigieren, 











Ilere A, Rapp aus München schrieb uns: 












Eifreu; habe ich zur Kenntnis genommen. daß Home- 
computer mit den Programmen “Energie” und "Telefon 
Adreßdatzı” für dien Commodore 64 erstmals ernsth 


anwendbare Software anbietet. Gerade beim Co 
ist ja dieshezügich allgemein noch eine große Anz 
vorhunden. 


nocdor 
botslücke 











Meinie Freude wurde allerdings beträchtlich gedämpft, alsich 

fesıstellte, daß Sig die Programme nur auf urd für Kasselte 

1 für sendatei ist der schnelle 

der Diskeite Vo für eine sinnvolle 

Anwendung. Vielleicht bringen Sie nach Abbau Ihres 

Disketten-Äuftrazberges doch noch zine Disketten-Version 
hezaus. 





: Das werden wir ganz bestimmt versuchen. 





Herr J. Kühr aus Kl 





nfurth: 


Ich mut: Ihnen zu Ihrer ausgezeichneten Home-Compurer- 
Zeitschrift gratulieren. Mir gsfallen besenders die vielen und 
guten Programms für den VO-?0 Cammadare Auch der Preis 
kommt mir für ciese vielen und guten Programme nicht zu 
teuer vor! 

Ich selbst besitze im Momeri noch keinen Computer. werde 
mir aber im Herbst zinen VC-20 kaufen, Ein Freund von mir 
besitzt den VC-X urder hat ihn mirvorgeführt. Es isı wirklich 
indruckend, wasso ein Computer alles kann. Auch durch 
diesen Freund bin ich zu Ihrer Zeitschrift Home-Computer 
getomıren, 

ich hätte « och eine sehn wute Idee (01 Ihren Verlag: 
Könnten Sie nicht Sonderheite des Homecomputers mil 
Programmen für den YC-20 herausbringen? 























Wir werden noch vor Ence dieses Jihrzs ein 
tausbringen, das Jesimm! genägend Pro- 
mne für alle Heimeomputer beirhaltei, woruuf sich 
e Leser jetzt schan Treuen kannen 















Homecomputer 
Top I'wenty 


Pimania (7X 81. Spsetun, Dragan) 
Der Fluch des Pharao (VC-2D) 
Seramble (VC-20) 

Penetrator (Spectrum) 
Superscramble (Commodore 64 
Multisound Synthesizer (VC-20) 


Automat 
Wicosoft 
Terminal 
Melbourne Houss 
Terminal 

Romis 














The Hobbit (Spectrum) Melbourne Hauss 
Spectacular/Dragon Doodles Spectr./Dregon) Au:omata 
Moons of Jupiter (VC-20) Komik 
Jet Pac (Specirum) Uimats 
Arcadia (Spsctrum) Imagine 
2. Chess (VC-20) Bug Byte 
13. Monster Muncher ($pectram) Spectrum Games 
14. Jumpin Jack (VC-20) Livewire 
15. PSSST (Spectrum) Ullimatz 


16. Superfont (Commodore 64) 
17. Xenon Raid (Atari 200,809) 
18. Best possible taste (ZX 81) 
19. Martian Raider (VC-20) 
20. Frenzy (Spectrum) 


English Software 
Fnglich Softwar 
Automata 
Romik 

Spectrum Games 














Lengweilig wäre die Computerweit, 
gübe es nur einen Comautertyp und 
ner eine Programmiersprache. 
Andererseits ist ein zu großes Spra- 
chengevirr auch nicht gerade von Vor- 
teil. In einer Zeitschrift wird ein Pro- 
gramm abgedruckt, das Ihnen sehr gut 
gelält - Teider en Homz- 
‚computer, den Sie nicht Desitzen. 





Basic #Basic 


Jetzt wird es schwierig, denn Basic ist 
nicht gleich Basic. 

Was Ihnen fehlt. ist eine Tabelle, 
mittels der Sie die Ihnen unverständ- 
lichen Befehle so umsetzen können, 
daß sie Iar Computer versteht. 
Homcon:puter begir.nt in diesem Heft 
eins Seriz. die bem Konvert'eren von 
Programmen behilflich sein kann. 


In dieser und den nächsten Ausgaben 
stellen wir das Standard Microsoft 
Basiz den Basics von 12 populären 
Micro-Computern gegenüber. Danach 
wercen Eigerschalten dieser einzelnen 
Computer vorgestellt, z.B. Bildschiri- 
adressen, Gralik, freie RAM-Plätze, 
und vieles mehr. 
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Phoenix 
für den Commodore 64 


Nicht immer hat man die Gelegenheit dazu; heim Spiel Phoenix können Sie endlich 
mal den Vogel abschießen. 


Dach auch hier sind Ihrem Sturmund | haben, ihn abzuschießen. steigert sich der Schwierigkeitsgrad bei 
Drang Grenzen gesetzt. Denn jener | Im weiteren Spielverlauf bei dein, wie | jeder Aufersichung. 

Vogel mit Namen Phoenix versucht Sie | in der Sage. der Vogel mehrfach (wenn 

zu erwischen, bevor Sie die Chance | auch nicht aus Asche) neu ersteht, 


@ REM -+ PHOENIX <C) BY F. HOFER ++ 

5 POKES3239. @:POKESS281,5 

7 S1n54272:FL=SI FHSIHL:HeSI+4 A=SI-S:HRSL4G:L=SI+424:58="0" :ZZERHDC-TI) :BT=200 
18 GOSURSARA:GOSUBIABAR:POKEL, 15 
15 PRINT "TI'CHREC.42) :GOSUBSBO 

17 PRINTRSBITREFFER: "SC, "IDIKANONEN: 
20 PH=:1OS:PL=35 PIRBI:PR=73:KK=10:KY=Z30:KS=1 961 :X=B: VZ=SBKNA3:KP=KS 
25 POKES328:,0 

50 POKEPH-2 32: POKEPH-3,32:POKEPH,PM POKEPH-1,PL:POKEPH+:,PR 

52 IFPL=BSTHENPL=74:PR=75:60T068 

55 PL=89:PR=73 

60 POKEV,KX PÜKEV+L,KY 

70 IFPEEKCABSICHBARNDSPCLLAATHENSZMI SP=KS-88 

80 1FSZ=1ANDSP>1O24THENPOKESP, 32: SP=SP-89 IFPEEK(SPIC>32THENGOSLBSO 

82 IFSZ=ITHENIFPEEK(SP+49) (I32THENGOSUBSOO 

85 IFSPCLL44ANDSZ=ITHENSZ=U:S?=0 

90 LFSZ=1THENPOKESP, 93 

95 PRINTM".SC, ‚KNISE 

108 PHaPH+2: IFPH>LSAITHENGOSUBEAQ 

110 KX=KK+X :K9=K$+R/8 :KPaKP+X/B: IFKRIZISTHENKE-K 

120 IFKX<SSTHENKSABSCH) 

130 IFPS=QTHENIFRNIKTIIC. STHENPS=1:PB=PH+40 

135 FORK=1TOVZ: NEXT 

140 1FPG=I THENPOKERR, 92: PB-PB+e0: 











=1@ POKEFH,BT POXEN,33 






B>2Q2STHEN! 
155 IFPB>2823THENPCKEFH, 2: Fon. 125: FORK=! Tore: Nat POKEPB-80. 32:PB= 
160 IFPS=1THENPOKEPB,«6 
178 FORK=-1TO1: IFPB=KP+K OR PB=KP+48-KTHENGOSUBSBE 


307058 

?OKEPH, 86: ee POKEL., 15: POKER, 0: POKEH, 54 'POKEN, 33:"T=100 
1701: POKETR4K, 

520 FORKEPHTOLBERSTEREE 

525 TT=TT-PH/2SQ:POKEFH, ABSCTT) :POKEFL. 1 'POKEW,33 

338 POKEK, 46: POKETR+K-PH, 2:PO<EN,B 

540 FORg=1T059:NEXTA,K 

550 FORL=-1T01:POKEK#+L, 111 :POETR+<-PH.2: NEXT 

352 POKER, 31 :POKEH, 19816+19:POKEFL, © FOKEFH,2: POKEW.33: FORU=1T0258 NEXT:POKEN,@ 
56@ FORK=PHTOLBG4STEP<Q:SOKEK, 32:NEXT 

570 FORL=-1T01:POKEK+L,32:NEXT 

580 3C=SC+H :IFSCIGTHEN?92 

590 RETURN 


‚608 POKEV,® 
SIB >OKEK3, 42:FORK=1TOZS2:HENT 
620 POKEK3+1 ,67: POKEKS-1.67:POKEKS+40, 93: POKEKS-42, Se 
630 >OKEKS-41,77 :POKEKS-39,78: POKE<S+39, 78: POKEKS+41. 
FORK=1STOQSTEP- 'OKEFH, 2:POKZFL»2:POKEL>K' Pk 1as: NEXT: POKEW,O 
648 SORK=1 10798 | NEXT:POKZL,15 
650 <H=KN-1 : IFKNCLTHEHG?B 
66 FORK=391041 :POKEKS-K, 32: POKEKS+K,32: NEXT 
665 FORK=-1T01:POKEKS+K, 32 :POKEPH-2+K 32: NEXT :PH=1 105: BT=25A: G0SUBBAB: RETURN 
670 >RINT" RODODDUNGDUDTEE TRBCIOD"AG ARME 0 VE RM":SEND 
708 IFVZSBTHEN?O 
710 FORK=-SOTO10STEP-18 
720 IFVZ=<THENVZ=K-10:6010759 


NERT 
758 FORK=1 101889 :NEXT:FORK=-1T0) 
760 5O2B:PH=1105:54=84+"0":52=8 
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IKEPH+K 32: NEXT: POKESP,32 
P=2 




















763 IFRJ=1THENRUI 

765 RETIRN 

77@ PRINT'ROMMBRAYO!! SIE BEKOMMEN EIN NEUES SPIEL!" 

774 FORK=1TOZSEQ:NERT 

775. RU=1:0019758 

SQA FORI=1904701943:ROKEL, 45: NEXT:RETURK 

9000 PRINT" MONGBBMEME #"TABCIO)"E' :POKES3248,0 

aLa PRINT'IMRBEI 2 ir 

9020 PRINT" IDIDBRAME ea Mei Igems KareS Mm ES" 
BEN RMER DE m" 

9040 PRINTIEHIEE @ EB ME Ha ER ER" 

9050 PRINT" ERBMBEBBBR(C) BY F. HOFER JUNI “83” 

9060 PRINT"MWILLKONMEN EEIM PHOENIX-SPJEL!" 


9078 PRINT"DZN VOGEL ABZUSCHLIESSEN. ABl Ei 
3873 PRINT"RJF, DENN ER VERSUCHT EBENFALLS SIE ZU" 
2038 eat WENN SIE IHN 7NAL GETROFFEN HP-"; 
9035 I» WIRD DAS SPIEL SCHMIERIGER. 
M SIE 6 DURCHORENGE. OESSHRFFT HABEN," 
9035 PRINT"DNN BEKOMMEN SIE EIN NEUES SPIEL!” 
‚9138 GETAS: TFAt=""THENI10@ 
9110 RETURN 
10008 RZM ++ SPRITE ++ 
10218 V=53243:POKEV+21.1:POKE2842, 14:>OKEW+33, 13 
10820 FORN=OTO62 'RERDG: POKESI6+N, A: NEXT 
0350 DATAQ,2, 0,0, 0,0,2,0.0.0,0.2,0.0,0,0,8,0,0.0.0,3.0,0.0,8,3:REM 27 NILLEN 
10860 DATAB.24.0,0,24,0.0,62,9.8.60,0,0.2%.0,0,255,2, 1,153, 128,7,255.224 
10378 DATR15, 255.249. 7,0,224.5,0,168,7.0,224 
10290 RETURN 








READY. 





Invaders 
für den Commodore 64 
Nicht in Maschinensprache geschrieben, wie die von diversen Firmen ‚angebotenen 


Invader Versionen, aber auch in Basic, dank der großartigen Fähigkeiten, des 
‚Commodore 64 ein recht ansprechendes Programm. 


Die Erde ist in Gefahr! befreien. damit die Flotte ungeh:ndert | blauen Planeten herangekommen ist. 
Sie besitzen 3 Kampfraumschiffe und issieren kann. Nun erwartet man von Ihnen, daß Sie 


sind als Commander mit derOrde: der Viel Zeit ble.bt Ihner. allerdings nicht, | die Erde verteidigen. 
obersten Raumbehöide versehen wo=- weil das feindliche Kampfzeschwader | Machen Sie Ihre Sache gut! 
den, den Raum von Asteroider. zu | schon beunruh.gend nahe an ur.seren 








o 1 Mel:REM INVADERS 
2 se en 
POKES3288, 


EIN SPIEL von" 
PR HEINEMANN" 
983 


6 cı 
7 PRINT! PRINT: PRINT: PRINTETASTE": POKEISB,B:WALTIIS, L 
8 PRINT"I":PRINTSPC62882 "33233222 I N VADER 5 SCiccccc" 
9 _PRINT :PRINT :PRINT : PRINT" TASTE" 'POKE198,8:WAITIS8, 1 
18 ES PRINT:PRINT" DIE ERDE IST IN GEFAHR !" 
INT" SIE BESITZEN 3 KAMPFRAUMER |" 
SIE SIND RAUM-COMANDER UND SOLLEN. " 
DEN RAUM VON ASTEROILEN FREI MACHEN: 
DAMIT DIE FLOTTE UNGEHINDERT PASSIEREN" 
<ANN. JEDOCH BLEIBT IHNEN NICHT VIEL" 
ZEIT,DA DAS FEINDLICHE BESCHWADER" 
BEREITS AUF DEM WEG ZUR ERDE IST!" 
JETZT MUESSEN SIE DIE ERDE VERTEIDIGEN! ' 
INT: PRINT" TASTE" FÜKE198,B:WALT19B,1 
B DIE STEUERUNG: 
LIIeLINKS EKI=RECHTS" 
TSPACEI=FEUER 
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25 PRINT :PRINT"TASTE" :POKE198, &:WAIT198.1 
43 PRINT"12" :POKES3288, 6: POKES3231,6 
50 FORA=487079 

51 POKE1824+R, 168: FOKESSZIC+R, 8 

52 NEXTA 

53 FORA=8B70920STER48 

54 PUKE1024+R, 168: PUKESSZIEHR,O 

55 NEXTA 

56 FORA=119T0959STEP43 

57 POKE1024+R, 168 :POKESSZIS+HR.8 

58 NEXTR 


FORA=IE0T0999 

POKE1924+A, 160: POKESSZIS+R, 8 
NEXTR 5 
FORZ=1 TOL2BSTEP2 
Y=INTCIBOHRNDK1)> 
IFPEEK(1124+Y)=16BTHENY=33 
POKE1124+V, 81 | POKESI3IS+Y,8 
NEXTZ 

8=1945:51=54272 

POKE1945, 65: POKE1945+34272,8 
P=198 

FORF=180T01STEP-1 . 

188 GETA$: IFAF=""THENIEG 

185 POKES,32:POKES+SI,€ 

185 POKEI124-F ‚32: POKESSII6+F. 

118 IFA$="J" HEN! 1: TFFEEKCSD=1SOTHENS=S+: 
"K"THENS=S+1 : IFPEEK(SI=150THENS=S-: 
"THENGOSUBSEBE 

195 F=INTCIQBHRND< 1) )-308 

193 IFPEEK(1:24+F)=168THENF=66 

133 IFF<LORF>9OOTHENF=33 

203 POKEL124-F.86: POKEISIIE+F.& 

281 IFPEEK(1L244F)=66THENGOSUBABDE 

21A POKES,55 POKES+S1,8 

211 PRINT" ADBBNDMEB Il Ll STRSCINTÄP)Y' :ENERGIE " 

223 POKELB2S+INT(P/S; 2: ST{P/S),5:POKE1945, 117 :POKESS317,8 

«25 POKEIB24.62:POKESSZI6,8 

298 NEXTP 

3@1 FORH=1T018:FORG=1T015 

3@2 POKES3288, 6: POKES3281,G!NEXTG 

3803 NEKXTH 


"  PUKES3280,4:FOKESSZB1 , 4 PRINT" mM" 
Ban PRINT" SIE WURDEN ABGESCHOSSEN ' 
NOCHMFL ? EIENI" 


Eis 
343 IFB$="J"THENN=N+ To 250 
3a EENESSTHENBBGE IF S4 u Goro Ha 
342 IFMISTHEN40B Goro ae 
358 EEE 1 NEN Sm Iren eien 


363 3OTO33R con 

403 >RINT PRIN-PPRINT"FERTIGI"PRIN :>RINT:PRINT"BITTE: RUMSTOP/RESTORE" SEND 
3060 FJKEIL244F ‚ 86:PÜKESSISEHF ‚@ 

3818 FIRD=4OTNS40STEP4E 

3050 PIKES. 65: POKES+51,8 

3188 PIKES-D.66 :FOKES+SI-D,5 

3120 x=5-D 


3198 IFPEEKCX-#4;=&6IHENGOTO4B02 
3169 IFPEEKCK-49)=B1 THENP=P+L 
2298 NEXTD 
a FORD=48T0848STEF48 
2488 POKES-D, 32:POKES+SI-D,6 
358@ NEXTD 
3558 FOKE1124+F ,32:FOKEITSSGHF 6 
3639 RETURH 
4238 FORU=|TO1R:FORI=1T015 
4881 POKES3288, 1:POKES3231 ,1:NEXTI 
4042 NEXTU 
4993 PRINT" :PRIN POKESSZE1,4: EROR EB ,F 
4934 PRINT' SIE HABER ©" ;P;"PUNg‘ 
4835 FRINT:PRINT:PRINT:PRINT" 8 HABEN DIE ERDE GERETTFT ":FRINT:SRINT:PRIN 
4835 GIT0328 
5938 G0TD2 
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Fallschirm 


für den Commodore 64 


Bei diesem Spiel für den Commodore 64 muß versucht werden. einen 
Fallschirmspringer, der aus einem Flugzeug abspringt, in ein Zielfeld zu steuern. 





Space bzw. bewirkt daß der | ins Ziel gelenkt werden. 
Fallschirmspringer zunächst das Flug- | Jenäher er diesen kommt. umso mehr 
zeug verläßt und beim nächsten Drük- | Punkteerhältman. Aberzchten Sie auf 
Gesteuerl wird alles über Tastatur cder | ken der Fallschirm geöffnetwird. MitZ | die Bäume. 

Joystick. uud / zw. dem Joystick kann er dann 











4 PUKE 53234, 14 :POKES3281 ‚14 :POKES3272,23:PRINTTEI'CHRECE) 7 

2 DINACZIT? zQ«1 G2S19=06 129 19695) =2 104247 9=0<35) 

4 VE=SIE40:SI=S4272 NI=-SOB0 :POKEVCH21,0 

R VdaVEHd EVS=VCHS EHIE=" " SPOKESI+24,0 

® DATA9.2,0.3,0,0,260,12,2,.9.4.0,0,192,16,2,6,5,0,0,64,0,30,243,31,30G 

1a DATRG,126,0,9,255,192,7.253.224 .15,.255,248.15,255,240,41 ,235,248.31 

15 DATN2S5,248,31 ,255,248,24,195,24.12,195,48,6,189,96,3,189,192,1,183 
20 DATA128,6,219,6.0,255,6,1,189,128,1,189,128,1.189,128,0,102,0,3,102 

25 DATA@,1,231,128 

30 DATAG,0,0,0,0,0,8,0,6,8,6,9,9,6,0,8,8,0-8.8,0,8,0,0,0,0,0,8,68,4,8 

95 ONTAS2,0,0,60,0,0,24,0,0.255,0,1,189,128,1,189,128,1,189,128,8,102 

48 DATAG,G,192,6,0,102,0,1,201..128 

45 NATAB,.0,0,192,0,0.224,63.248,240,€,32,248,8,93,248,11,161,255,255 

sa DATA249,255,255.259,63,295,255,7,.755,253,3.255,249,9,12,65,0,7,55,0 

55 DATAG,224,0,1,240,0,1,246,0,6.224.,6.6.0.0.0.8,8.0.8.0.0,0 
€S DATAO,170,0,2,186,128,2,171,128,18,234,160,19,174,224,11.170,160 
a DATRIG,1L97,160,2,170,128,2, ‚129,9,170,6,8,22,6,6,24,6.0,24,4,0,26,9 

75 DHINa.20,9,0,85,0,1,17,64,8,8,0,0,0,0,0,0,6.8,0,0 

50 FORR=6T024 HREADP :POKESI+R „P :NEX | HREADP 

190 FORF=STASZ :READG :POKER+TO4 ‚U :NEXT 

105 FORR=OTOS2HREADC 1POKER+832,U NEXT 

118 FORR=ATOK? :READG »POKER+396, U :NEXT 

115 FORR=ATGS2 :READG :POKER+96A „U sNEXT 

117 RESTORE 

120 FOKE2@40, 11 :FOKE2041 ,13:POKE2242 ,14 1POKE2943, 15 :POKE2044 ‚15: POKE2A45,15 

125 FORR=VCTOVC+11 :FOKER ‚0 :NERT 

130 POKEVC+H ‚228: POKEVC+3 225: POKEVC+1 1,225 :POKEVC+16 ‚© :POKEVC+23,4 1POKEYC+27 ,@ 
195 POKEVC+28,I6 :POKEYC+29 ,4 1POXEYC+S@ ‚8 :POKEYC+31 -WIFUKEVC+37 „31 POKEVC+3B,Z 
140 POKEVC+39,0 3POKEYC+4G,9:;POSEVC+41 ‚6 :POKEVC+42,T:POKEYC+43,5:POKEYC+44 ,5 
145 POKEVC+E, 255 1POKEVC+21 ,€3 
170 FORR=1984102922 :POKFR 160: POKER+SI,A:NEXT 

172 PRINT " SIMDRINTHUnTSCHZBTaTeTDRTLKTRTRTE DET. nt u 

175 POKESI+4,65 :POKESI+11 65 1POKESI+18,65 

10 FORR=@TO1GA POKEVC+E ‚RePOKEYC+S, 208 :NEXT 

198 FORR=1G0T03S@STEPS :P=212/30:2=Z+1 :POKEY4 ‚R-A :POKEVS ‚208-P : IFRPZSSTHENPOKEYC 
+16 ,4 1i=205 ? 

268 NEXT :POKEVCH+4 „8 1POKEYC+I6.0 

21@ FORR=GT02S5 1POKEVC+4,R:POKEVC+HS,40 

220 TFR>=12BTHENPOKEVC+Z, 126 :POKEYC+3,R-72 

236 NEXT :POKEVC ‚126 :POKEYC+! „183 :POKEVC+21 „9:FORR=1AATO222STEP. 05 

24€ FOKEYC+1 R:NEXT sFORR=0T038 :POKEVC+29,2 :POKEVC+39, 3:1NEXT 

258 POKEVC+4.G:POKEVC+S ‚48 :POKEVC+2I . 
268 Bt="% %* # „ALLSCHIRNSPRINGEN # 
Zre PRINT" Denn wTEUERE EINEN #PRINGER IN DAS" 
28€ FRINT"MLANDEFELD. “€ NAEHER U AM SITIEL 
29€ PRINTWPUNKT LAHDEST, UM SG MEHR UNKTE GIBTS 
FRINT"IGENN U /#PACE” BZH. "-IRE” AM \GUSTICH 
FRINT"MORUECKST SPRINGT ER ZU ERST AUS Del 
FRINT"B-LUSZEUG URD DANN OEFFNET ER DEN ALL 
FRINT"NSCHIRM. ANN KANNST -U IHN NIT z7u 
FRINT"UNG "" BZu. MIT DEM SOYWSTICK INS #IEL’ 
















































































5 IFFEERKVCHBRCHETI 


PRINT"S ILFNKFN. "SS AUF DIE IAUEME AUF 1" 
FORR=1T034 :PRINT"aUEIB" RIGHT$<BE,R) :POKEYC+4. 15+R#S 1 FORB=1 TOSG :NEXT : EX 





POKE198,6:WRIT198,1 :POKEIS8,0 

GOSUB14GE ERUI=1 

FORI=1TOSP 

FOKZSI+24,0 :POKEVC+16,0 :FOREYC+21 ‚O:POKE19E „O:PRINT"IEM" 7 
FORR=1 984702923 :POKER „168 :POKER+ST ‚9 3HERT 
N=INTERNDEIDWZEHLI 

PRIHT" SÜRRDRERLSTSTKTKINLSTRUDSRTETRIRDSTATETEIKLEIN" TAB ChN+4 "RE 
M=@NM=@GR=RNDOC-TII EUR=INTERND 134. DE1G-5 

NTKRNDK1IKZAG+Z4D 

NTERND«1)#296+24) :IFABS<PI-P23C2STHENSSE 
NTKRNDK1)#296+24) sIFABSCPI-P3) C2SIRABS<P2-P3)C2STHENSER 
IFPISZSSTHENU=8  :Pi=Pl 
IFP2IZ2SSTHENU-H+1S:P2-P2- 
IFPS>2SSTHEHN-N+32 HF 2- 
POKEYCHE U +POKEVCHE,PI :POKFUCHR.P2 :PIKFYCHG,PS 





















SC=a :H=1609 ;POKEVC+S,48 
FORK=@TO24 :READY SPOKESI+X „Y :NEXTH SREROKN : IFK=3GBTHENRESTORE 
POKESI+4,65::POKESI+11.,65:FOKESI-18.65 


POKEVC+21,60 

PRINT" ERREWPRIHGER : "NECID 

PRINT"WICEHE : 1acam" 

PRINT"M6EIT = 88 SEC" 

POKE198,6 :FORR=-8T0255STERS 1 ETAS sIFAFC>" "THENTSO 

PNIKFWCH+4R :NEXT :POKEVC+16 ‚PEEKLVCH153+4 : FORR=@TOIGBSTEPSIGETAF HIFAR- 





NTHEN 


POKEVC+4 ,RıNENT :POKEVC+16 ‚PEEKCVC+H15)-4:G0T0716 

POKE139,6:T1$="aaaaaa" :S=PEEK«VC+4) 

IFPEEK<VC+16) -U=4THENPOKEVCH LE ‚U+Z 

POKEYVC+Z,S:FOKEVC+3,48:POKEVCHZI „SU:PUKEVEHBG,O 

FORK-OTGZ4 :POKESI+R ,8:NEXTK 

POKESI+24,5:POKESI+5,255 :FOKESI-6.255:POKESI+1 ‚248: POKESI „1@Q:POKESI+4,17 
FORR=48T0152 :POKESI ‚160 :PCKESI+! ,249-® 
POKEVC+3,R :POKEVC+2,5 :PRINT" SUlellad IIEHF 8" 5 
PRINTINT«1273-1278/2219R> "IM "SPRINT" MEIT ı "RIGHTSETIS,2) 
GETAS:IFASCH" "THEN3GS 

S=S+4@/R :E=CPEEKSYCHEI-WI/E : IFS>ZSSTHENPOKEYCH1S ‚U+2MCITE-E) ı5=0 
AFSSATHENFOKEVC+LS,U+ZMCITE-E) :5=255 

NEXT 

FORR=1S9T0221 :POKESI, 168 :FOKESI+1 ,248-R 

POKEYC+S,R PRINT "Seelelie GEHE =" INT<I27O 1ETOZRLHRD IM © 

PRINT"MEETT 8 "RIGHTSCTIS 2 :NEXT 

j=-1 :PA=PEEK N VC+2D ; T=WALCRIGHTECTIS,23) : IFPEEKCUCH EI -U=2THENPA=PR+2SS 
FÜRR=1STO@STEP-1 :POKESI+24,R :POKESI ‚200: POKESI+1 4a: POKESI+5,15:POKESI+G A 
POKESI+4,123 :NEXT :S0SUBI1EGG 





























PRINT DIE _EISS- 

PRINI PRAET GEZOGEN! 

PRINT ERKUNDEN" 

sorcızao 

HPEEK(VO+23 ıY=PEEK<YC+S3 :POKEVC „X :POKEYOH 1 ‚VW POKEVC+HZL ‚37 :FOKESI+24,0 
IFPEEK£VC+16I-U=2THENPOKEVCHIS UL 

FORR=YTO2Z1STEP.5 

FOKEVC+1 ,R:POKEYC ‚5: IFINT£R/8I=R/STHENUR=-UR. 





PRINT" Saladin] |OEHE "INTA1278-127872214R> "IN "PRINT" MPEIT ı "RIGHTSCTI 





SES+OKFEEKL TI I+INTERNDE1PAHRD 

1=-1 :60T01188 
E=FEEK<YC1IG> WEIFS>2SSTHENFOKEYC+H1S ‚U+LTE-E :8: 
IFSCHTHENPOKEYCHEUHLTE-E 18-255 

NEXTR 

FÜRR=@TO3G ;POKEYC+39 , 2: FOKEYC+39,3 :NEXT:POKESI-24,.A 
TaYALKRICHTSLTIS,23> 

PAI=PEEK£YCH s IFPEEKK VC+LEI-U=1THENPA=PR+255 











GOTISIG 
























324 B$="Q" :GOSUBI2EG 
995 IFSC<AGATHEN!GE2 
386 IFSCX=SBRTHENIGGR 
387 FORR=GTO24 :POKESI+R ‚8 :NEXT 


939 POKESI+S,1 





:POKESI+&, 15 :POKI 


ES1+4,33:POKESI+1 ‚100: POKESI+24,1 


334 FORR=1T03 ;FORS=49TOL2ZESTEPZG :POKESI, 180; FOKESI-1,S:FÜRC=@TO1SG NEXTC,S,R 
932 POKESI+1 ,A:POKESI+24,0:60SUB16U0 


39a PRINT" 








ieakajahajehakir 


"#UPER LANDLI 








a 


1000 GOSUBIGUWSPRINT'S","S OL 


1002 GosuBIsoR 


RR 





NEXT SPRINTTARK 7 "slalslalshilakekkiekokk 
PRINT" IIIITITIVTABCISD MI 
PRINT" TABCIS 
8 PRINT" M"TABCIE 
993 PRINT" EM" :GOTO. 


ax 
ING® 


LE LANDUNG. .. sorg:sıa 





1865 PRINT" ,"M +AUBERE LANDUNG. . „m 
181@ PRINT"M",."+EIT z"T"#EKUNDEI 


1050 SOTÜ1248 


1100 FORF=RTO22I :POKEYI+ „A :PRINT "SUR |OEHE 


1110 PRINT"MEIT 3 "RIGHTSCT 
1120 T=VALKRIGHTSCTIE,2D> 

1130 PF=PEEKSYCH : IFPEEXCVC+16)-U=1 THENPA=SPRH2SS 
1140 POKESI+24,0:G0SUBIEAG 
1170 PRINT"S","#IE SING IN EINEM |AuM" 
1189 PRINT"M".'HAENGEH GEBLIEBEN. " 


1139 PRIMT"M", 
1200 LP=<N+S>% 





EIT ı"T"#EKUNDEI 
SABS<LP-PA+24) 








D 


14,2) :NEKT 


Ne 


1219 SCHINTLCIG-1@/ 202) KL1G@/T) s IFZ<LSANDSCHATHENSC=SCH2U8 


1220 IFSCHBANDN<OTHENST 





NTC-SC, 


1239 IFSC<-10@GTHENSC=-1006 


1249 IFBS="G"THENB: 


1240 FRINT"mM,." 
1245 SCKTD=SCKI 





"RETURN 
"SCH TUNKTE" 
>+SC 


1250 IFSCHHITHENHI=SCHHIE=NEKID 
1269 POKE198.:WUATTIIR. 1 :POKEISS,G 


127@ NEXTI 


1284 GOSLB1SAGRU=RU+H :GOTOSSE 


1400 GOSUB 1500 


sPCKESI+24,0 


Bach 


1410 PRINT"SEERIETEN" ,"OIEVIELE #PIELER 7"; 
1420 GET SIFAE=""THENI420 


1439 SPAYALCAE) 
1448 PRINTER 
1464 FORR=1TOSP 


1470 GOSUB16A8 PRINT "Elan" „"»PIELER"R PRINT. "ARME" > 2 INBUTHEARD 


SIFSP<ITHENI4ZE 


1424 IFLENCN$CRD)DLETHENIAFE 


149@ NEXT 


1491 GCSUB16G :PRIHT " ZUntelaiugen 
1492 GETIKFEIFIKS: 





1433 IFIK 
1494 GOTO1492 
1424 RETURN 

15am AOSLRIEBR 





"THEN. 








EVSTICK/PPIEVBORRD" 
1:60701493 


"K"THENI=ZaS 1501 U1490 


1595 PRINT"SG" "4 -ALLSCHIRMSPRINGEN w" 


1510 PRINT."aM 
1528 FORR=1TOSP 


1548 PRINT" .NSCRS." "5 


1550 NESI 
1568 PRINT"E 


"Run 





Rd 


WECHSTFUNKTZAHL 


INDEE" 


zmHITe DIE" 


1576 POzEIS®,@:MAIT19G,1:GETNEEIFAS="S"THENSTOP END 
158R RETURN 
1608 PRINT"8" : :FORC=OTOZ2:PRINT" 
1618 RETURN 
1826 STOP 

1800 SEEHEEFESEEFEESEFEFFEEFFIFIFFEHESE 


mp: 





:FORR=1TO3 1 PRINTTRBCFIRUIRBCHLD 


"#IE HABEN LEBER 586" :PRINT"M' TABC12D" PUNKTE ERREICHT" 


1" INT<L278-127872210A "IM 


"SNENT 












werden. 


Eine Stadt wird von Helicoptern 
angegriffen. Der Spieler muß die Stadt 
verteid;gen. Dafür hat er eine Laser- 
kanone, die mit den Tasten O und P 
bewegt wird. Der Hubschrauber wirft 
mit Gasbom>em. die noch in der Luft 


Helicopter-Attack 


für den Apple II 


In Heft 8/83 veröffentlichten wir ein Programm für den VC-20, bei dem esdarum ging, 
ls Hubschruberpilot, möglich: 
Diesmal ist es umgekehrt; möglichst viele Hubschrauber sollen vom Himmel geholt 


viele Panzer abzuschießen. 





ubgeschossen werden müssen. da drei 
solcher Romben die Stadt vernichten 
würden. Wird der Helicoptergeiroilen. 
stürzt er zwar auf die Stadt, aber cs 
stomt kein Gas aus. Nach 1000 
Punkten wird die Stadt immeı wieder 


tegeneriert und der Helicopter schnel- 
ler und gefährlicher. 

Jeder Schuß mit ıler Laserkanone 
kostet Energie urd wenn die Energie 
versraucht ist, ist die Sad verloren. 





5 GAME = GHRT(:) = GEDYtl) = 10:r 
UN) = 260:hY 1) = 10HE = 1 
ıH=0 

10 FOR I = 768 10 37% 

20 READ Ar FOKE 1,9 

20 NEXT I 

33 PUKE 282,0: POKZ 232,3 

AO DATA  5,0,12,9,16,0,31,0,82 
0,1009 

"KO DATA 87,45,45,9 

0 DATA 63,61, A%,43.47,45,45,45 
‚45,45, 45,45, 43.61,0 

70 DATA 62, 62,63,63, 62,62, 
4 5,45,45,37,37,37,46, 61,62, 
62,62, 63, 63,47,53,45,54,63,6 
3,33,42,45,49,95,48, 63, 59,60 


75 DATA 43,39,45,05,44,54,37,44, 
54, 37,44, 44,44,34,37, 37,0 

€0 DATA 63,44,45,46,36,53,63,4 
4,45,61,60, 39,95, 60, 47.36.52 
‚o 

so DAIR  80,45,60,39,45,39,44, 
63,0 

55 SCALE= 1 

100 REM Y4k# START xt 

10 TEXT + HNNE 

120 HTAB 12: PRINT "HELICHFTER A 
TECK" 

150 FRINT : PRINT "COPYRISH” > 2 
4.3.1983 < BY CARSTEN FREY" 

140 PRINT : PRINT "SuM HELICOPT 
ERS WANT TO DESTROY Yoı 
: PRINT "TOWN.TRY TO SHAOT T 
HF HFLICOPTERS DOWN“ m 

150 PRINT : PRINT "AND SAUF nur 





TOWN FROM THE BOMES.ONLY': PRINT 


: PRINT "FIVE S0NBS AND YOUR 
TOUN WAS DESTADVEE. 

160 PRINT : PRINI "DONT <EEP TI 
RER AND TRY TO NANRGE THIS": 
PRINT : PRINT ®GAME.SO0D LU 
ER nam 

170° PRINT : PRINT "PRESS aNv KEY 
TO CONTINUE. on 

175 :F PEEK | - 18384) > 127 THEN 
soro soo 





PRINI 





189 CCTO 175 

509 REM #r#t GRAPHIC Kirk 

5053 HCME : H6RZ 

520 HCOLOR= 3: FOR : = 10 TO 270 
: HPLOT 1,120 TO 1,130: NEXT 
u 

559 HPLOT 10,140 TO 26,140 TO 20 
„141 TO 10,141 U 10,150 TO 
20,150 TO 20,149 TO 11,149 TO 
11,140: HPLOT 10,145 TO 20,1 
45 TO 20,146 TO 10,146 

540 HPLOT 10,144 TO 20,144 

550 FOR I = 30 TO 270: HPLOT 1.1 
40 TO 1,150: NEXT I 

569 REM #xd8 STADT Kick 

563 FUK 1 = 10 IU 15: HPLUI 1,12 
0 TO 1,(128 = I:: NEXT I: FOR 
1-20 10 15 37P 4; ImLor 
1,120 TO 1,(95 + Di: NEXT I 

570 FOR I = 50 TO 50: HPLOT 1,11 
5 TQ 1,1203 NEXT I: FOR 1 = 
35 T0 40 H + 1: HRLDT I, 
115 TO 1,0115 - Hz NEXT I: FOR 
1=40 TU #S:H = 4 = 1: HPLUI 
1,119 TO 1,119 - Ha NEXT I 








575 FOR I = &0 TO 75: HPLOT 1,12 
0 TC 1,115: NEXT 1: FOR I = 
60 10 55: HPLOT 1,115 TO 1,1 





10: NEXT I 
SEO FOR IT = 85 TO 1%0: HRLDT 1,1 
20 T0 1,115: NEXT I: FOR I = 








83 TO 92:H - H + 1: HPLOT 1, 
1:5 TO 1,4115 - Hz NEXT I 





FOR 2 = 93 70 100:H = 
HFLOT 1,115 10 1,1115 
NEXT I 





590 FOR I = 110 TO 120: HFLOT 1, 
120 TO 1,115: NEXT I: FOR I = 
110 TO 115:4 = H = 1: HPLOT 
1,115 TO I, (A193 HD: NEAT I 
N t 13 FOR I = 115 T0 1 
HRLOT 1,115 °0 
2 NEXT I 











se 
55 FOR I = 130 TD 140:H =H +1 
3 HPLCT 1.120 TD 1,i120 - #) 














: NEXT Ir FOR I = 140 10 150 > a7 HXIDD,HYID) 




























:H =H - 1: HPLET 1,120 TO I 705 RT(T} = RTD + 16: IF RT(D > 
„(420 = Hz NEXT. I 64 THEN RT(D) = 0 
00 FOR I = 150 TO 170: HPLOT I, 7:0 RIT= RTID: DRAW 1 AT CHXCDD 
120 TO 1,41 NEXT I: FURL = + 10),HY{D) + 4: ROT= 0 
160 TO 185: F + 1: HRLOT 7.5 BXtLI = MX 
1,115 TO I,(1:5 - 9: NEXT I 720 I= BO(I) - 1 THEN 6070 810 
ıH=H+ FOR I = 155 TD I 730B- INT (50% RN !1d): Ir 
70:H =H - 1: HFLOT 1,115 TO B > 40 THEN BO) = 1 
1,(115 - Wr NEXT I 740 REM 44% SCHLEIFENENDE 44% 
sol = 0 790 NEXT 1 
605 FOR I = 180 TO 195: HPLOT I, 795 HOME : VTAB 22: HTAB Z: PRINT 
120 TO 1,115: NEXI I: FOR I = . "SCORE 2"; PU: VTAB 22: HTAB 
100 TO 16B:H = H + 1: HPLOT v PRINT "HITE ON YOLK IUWN 
1,115 TO I,(115 - W: NEXT I ="; TRE 
800 GOTD #76 
610 H = 9: FOR I = 188 TO 195:H = RIO HENIOR= 0: DRAW S AT BILD) + 
HK = 1: HFLOT 1,115 TO 1,115 IGANE % S),BY(D) 
= His NEXT I 820 BY{T: = BY + 5 
615 FÜR I = 205 TO 220: HPLOT 1, 850 HZDLOR= 3: DRAK S AT EX(DD.B 
120 TO I,113: NEXT I: FOR I = vr 
215 TO 220: NPLET 1,115 TO I > 
an 85 Ir BYin > tOsıTken aıralr0 
slah=0 840. 6070 au 
620 FOR I = 250 TO 250: HPLOT I. 
115 TO 1,120: NEXT Iı FOR I’= 900 REM 4#*# BONBENTREFFER KuH% 
235 TO 240:H = H + 1: HFLOT 





905 HOOLORF= 0: DRAW SAT BX(D),B 
ver 
915 TRE = TRE +1 


1,415 70 1,6115 = Mt NEXT I 
: FOR I - 240 TO 24:4 =H- 
ds HPLOT 1,115 TO 1,115 u 





Ear 920 REM &#%4 ZEICHNEN Kitkk 
v22H= 0 930 FOR U = BX(1) = 10 TO BXCH) + 
a 1m 
425 FOR I = 260 TO 270: HPLOT I, SE = 218 
a tn YET Fig din 740 HCOLOR- O5 IF DUR = 2 THEN GUIU 





950 
945 HCOLOF= INT (7 8 RAND (DI 
950 HPLOT BX(1},.BYtl) + 1a TU, 


260 TO 245:H = H + 1: HPLOT 
1,120 10 1,0115 - 9; NEXT L 
: FOR 1 - 265 TO 270:4 =H - 


la HPLOT 1,120 10 I,(115 - H Sc a 52 

3: NEXT I 9 > =2 6 
439 IF GAME € 2 THEN 3070 aan re See em 
540 G0TO 650 970 HCOLOR- 3:DUR = 0 
445 FOR 1 = 0 70 279: HCOLOR= 0: 980 BYdd! = HYin 


HPLOT 1,0 TO 1,90: NEXT I 
550 REM 788 SFIELBEGINN Ik 
555 EN - 270:GAME = GAMz + 12 HEULUK= 


987 IF GANs = "ENDE" THEN RETURN 











3 988 IF "RE = 5 THEN 6070 50090 
#59 IF GAME > 5 THEN GAME - 5 920 60T 740 
560 DRAW 4 AT 130.117: DRAU a Ar 1000 REM &xtx SHonT axtk 
15,112: DRAN 4 AT 285,112 1005 HE = 1 
#70 REM kAkk® SCHLEIFE tart 1919 IF BLNs = THEN 073 11 
871 IF PUN > = (GAME # 2000) THEN o 
GOTU Sou 1020 IF GLNS = "P" THEN GOTI 20 
675 IF PEEK ( - 16389) > 127 THEN © 
GET GUN$: GOSUD 1000 1030 EN = EN - 
»00 FOR I =1 TO HE 1035 HCOLCR- 0: HPLOT 270,159 TO 
485 ROT= 0: HCOLOR= 0: DRAW z AT 270,140: HPINT 249,150 TO 26 
HALT) HYDE RAM 2 AT HXCTH 9,140: HPLOT 271,140 TO 271, 
HYCD: ROTE RTEDD: DRAW 1 AT . eo 
(HALT) + 1O),HYED) + 45 ROT= ee 
0 en 
590 HEOLOR= 3 Bl 
695 HK(I) = HALL) - (BRMIE ES: IF ae SOEEN ELTERN) 
HXtIr x (BAME # 10) THEN HXC AN, 
I) = 270 - {GAME # 71: IF DO % Eu EEE - 
1) = 1 THEN HCOLOR= 0: DRAW | Pe Ne el 
3 AT BXD,BYCD) = 
700 DRAW 3 AT HX(DD.HYCIE DRAW SEEN EEE EEE 











IFGU= - 3 THENA= 20:B = 
sc 

IF GU= -2THEN A = 20:R = 
v 

IFGU= - 1 THENA= Ju: = 
o 

IF GU = 0 THEN A = 14018 - 

o 

IF GU= 1 THENA = 210:E = 

o 

IF BU = 2 THEN A = 250:E = 

a 


IF SU = 5 THEN A = 290:E = 
sc 

HEOLOR- 33 HPLOT 149,103 TO 
A,B 

HEOLOR= O3 HPLOT 149 
A,B 

IF ACC HK) +10 ADA>H 
x) - 10 THEN GOTO 1901 

IF 80:11) = 0 THEN Suıu 190 





o BE 
IF BU = 3 AND IBXtU) - Eyct 
») = 175 THEN G0TO 2100 

IF BU < O AND IBX(D Z EYC 
2) > 1 AND (BACH) 7 BYIDD) € 
2 THEN 6070 2100 

IF EU = 2 AND BX(1) + BYt1) 
> 240 AND BXID) + BYCL) < 2 
66 THEN GOTO 2100 

60T) 2030 

IF & > 0 THEN GOTO 1900 
REM x HELIKOFTER DOKN # 
Ei 

I=1 

HIR = HIR +1 

HEOLOR= 0: DRAW G AT BALD), 
BY(Dz DRAW 3 AT HXIDD - 34H 
Yin. 

HCOLOR= 0: DRAW 2 AT HKD), 
HYtD)z DRAW 2 AT FXCD),HYCDD 
# ROT= RT(D): DRAK 1 AT HXCI 
) + 10,HYED) + 4: ROT= 0: FEOLOR= 
1-1 

HCOLOR= 0: DRAN E AT DX«1), 
BYch) 

sata 3000 

PUN = =UN + 10:HY(1) = 10:E0 
(1) = 9:BYtI) = 10: G0TO 190 





& Ar 


ker ame Poker 

SU = G4 + 1: IF BU > 3 THEN 
W=3 

6070 1120 

REP X BOME DOWN Ka 
HEOLOR= 0: DRAN 5 AT BXLI), 
BYcı) 

BO41) = O:BY(1) = IG:PIN=P 
UN + 50: BUTO 1700 

REM Akt HEL DOWN Kat2s 
1=1 

ART= INT (10 # RAND (ide IF 
ABT < 2 THEN ABT = 2 

FOR U = 20 TO 110 STE? 10 
HEOL : ROT= RT: DRAN 3 AT 
HALT ,HYCL): DRAW 2 AT HXtDD 

















5110 
sı2 


s113 
‚Sl 


5117 
sımn 
5130 
5149 
150 
S155 
5169 
S189 


zısı 
2190 


5209 





„HYED 

HCOLOR= 3 

HX(ID = HAI) = ABTz IF HXCI 
) < 20 THEN AXIDD = 260 





RT=KI +16: IFRT > 6 THEN 
RT=3 

ROT= RT 

HYD = U 

TIE= INT (162 AND (1: IF 


TIE < 10 THEN TIE = 10 

DRAW SAT HXCDD,HYCDI: DRAW 
2 AT HXIDD,HYCDD 

FUK UI = 1 TO 50: NEXT UI 
NEXT U 

NOOLOR= €: DRAW SAT HACD), 
HY(TDI: DRAW 2 AT HXCDI ,HYCDD 


SHD = INT (350 % AND (3): IF 
SHD < 15 THEN SHO = 15 

IF HK1) + 3HO > 279 OR HXC 
1) = SHO < 1 THEN BOTD 3095 


TaR U = EAIDD — SHO TO HAI 
» + SHD 


IF DLR = 2 THEN 
INT (7 & RUND (19) 


HPLOT HXADI,HYCD) + TIE TO 
U.HYt) = 30 

NEXT U 

IF DUR < 2 TIICN DUR = 2: G0TO 
‚oo 

DUR = 0 

SOTO 1926 

REM Ax34 ENDE dk 

HEOLOR= G: FOR I = 1 TO HE: 
DRAW S AT HXCDD,HYCDI: DRAW 
2 AT HXIDDSHYCLIE ROT= RTCD 

® DRAW © AT (HKCD + 10), HYC 
D + 4: ROT= 03 NEXT I 

REM #x%4 STORE KK 

FOR I = 1 TD 2500: NEXT Ir TEXT 


HOME 

INVERSE 2 HTAB 14: PRINT "F 
INAL RESULTS" 

PRINT : NORMAL 

PRINT "YOUR SCORE 3 "FUN 
PRINT : PRINT "LAST HIGHSCO 
RE 2"; 
PRINT : PRINT "HITS ON YCUR 
TCHN (BONES) + ";TRE 

PRINT : PRINT "HITS ON YCUR 
TEWN (HELICDFTER) 2"; HR 
IF PUN > IIPU THEN HPJ = FUN 








PRINT : PRINT "NFW HIGH SCO 
RE IPU 

11 = (106 & FUN) / (GAME 4 2 
soo 

-1= Ant (11) 

PRINT : PRINT "HITS KAILNG 
tee 

PRINT : PRINT "SHLOTS LEFT 
EN - 19 

G0T0 5070 















APPLE N 


Karylon 
für den Apple II 





Können, Sie ein bischen Fantasie auf- | Ihr Volk erwartet zon Ihnen, daB Sie 
das Ihnen anverraute Land nach 
bestem Gewissen verwalten und ver- 
mehrer, Hierfür steben Ihnen Land 
und Kern zur Verfügung. 

Mit etwas Glück und viel Überlegung 
sollen Sie dafür sorgen. daß keiner der 
Ihnen anvertrauen Leute hungers 
ich und auch nicht sterben muß. Erd>cben, Dicbe usw 
TEnen das Wirtscheften natür- 












r für den Zeitraum von 10 
timmt worden. Dies war 
lich in den damaligen Wirren der 
Zeit nicht ganz 
ganz ungefährl 















lich schwer. 

Haben Sie schließlich 10 Jahre Über- 
lebt, lernen Sic eine weilere Kehrseite 
des Lebens kennen: Mun läßt Sie nicht 
geren Für weitere 10 Jahre sind Sie 
zum Herrschen verdammt. 

Alls sch echter Herrscher haben S:e zu 
diesem Zeitpunkt chneh:n Ihr Leben 
irkt Lediglich die Todesart vari- 
























50 REM Hrn 140 PRINT "BITTE EINE TASTE DRUE 

60 REM %* KARYLON x CKEN. . 

70 REM % WRITTEN BY x 150 WAIT - 163 2, „128: POKE - 1 

80 REM x CARSTEN Ei 6368,0 

9% REM %* FREY x 160 CLEAR :5 = 280G:H 

95 REM okkkekkeekinnt 200: 9 za = 100 

100 HOME L 

110 HTA3 16: INVERSE : PRINT 'KA 170 TEXT = HOME :Z = Z + 1: HTAB 
RYLIN": NORMAL 14: INVERSE : PRINT "JFHRESB 

120 PRINT = PRINT "DU BIST HERRS ERICHT": NORNAL 
EHER DES VOLKES VON" 175 POKE 3 

130 PRINT = PRINT "KARYLON.DEINE 180 PRINT "IN JAHRE ";7;" ETARBE 
AMTSZEIT BETRAEBT 20 JAHRE" N “3D3" LEUTE." 


14 Homecomputer 





Oktober 1983 





PRINT 


PRINT 1;" LEUTE KAMEN IN DAS 
LAND. " 
P=P+1:D1 =Di + D: PRINT 


IF @ > 0 THEN 50T0 240 
LETP= INT iP/ 21 

PRINT "DURCH EIN ERDBEBEN KA 
MEN DIE HAELFTE": PRINT "DER 
EINWOHNEN DEI LANDES UM. 





EOSUB 1349 
PRINT : PRINT "DAS LAND HAT 
NUN "4F3" EINWOHNER. " 
FRINT : FRINT "DAS LAND IST 
"ß5" HEKTAR GROSS." 
: PRINT "DIE ERNTE BET 
Y3" BALLEN/HEKTAR. " 
PRINT "DIEBE VERNICH 
"3Eg" BALLEN." 
FRINT z PRINT "DU HAST " 
BALLEN GELABERT." 
IF z= 11 + JAHR THEN GUIU 
920 
G= INT (O8 RND (1) 
Y=zC+r1ı7 
FRINT =: PRINT "LAND KOSTET ' 
3Y5" BELLEN/HEKTAR." 
FRINT = FRINT "WIEVIEL HEKTA 
R SOLL ICH KAUFEN" 
GOSUE 1250 
Ir va x 
a7C 
GDSUE E60 
c0TO 340 
ir @= 0 THEN G0TO 420 
A=-A+0:5=35-Yseı0=9 











- 5 THEN GDTO 


6070 4Eu 

PRINT "WIEVIEL LAND SOLL ICH 

VERKAUFEN" 

GOEUE 1240 

IF A» OTHEN GOTO 470 
BOEUR &no 

G0TD n20 " 
A=A-0S=S+yYytWuc-o0 


PRINT 

PRINT "WIEVIEL GETREIDE ALS 
NAHRLNE® 

INPUT O 

IF (0 € m THEN 50T0 900 
IF (E < =5) THEN 6013 550 


GOSUE E60 

GOTO 450 
S=S-@r=1 

PRINT "WIEVIEL HEKTAR RZPFLA 
NZEN" 

INPUT E 









830 
846 


845 
850 
BsC 


865 
870 
BSG 


ELIE 


on 


sıc 
32C 
36 


340 





FD< 0 THEN G0TO 900 
FD» 5 THEN GOSUB 1320: GOTO 


IF (A 5 =D) THEN G07D 660 


PRINT : BOSU3 840 

6010 550 

IFD< 04 P) THEN 6G0TO & 
0 


PRINT "ABER DU HAST NUR "ıry 
" LEUTE,"," UM DIE FELDER ZU 
BEFSLANFEN. " 


G0T0 Sao 
INT ın 7 2 
880 
-DtIYE=0 
GOSUB 880 


E= IN (S/0:3=5-F+ 





H 

GOSUR 380 

I= IN (CK (OH A+Sı 7 
P/ 100 + 1:C= INT iQ/2 
0:0 = INT (10 K (2% RND 
NEN 

IFP<CTHN 6070 210 
D=P-C 

IFD>.75% P THEN GOTO 82 
o 


PR= UNZ= 1) KPL HD 8:00 7 
P) / ZP = C:DI = Di + DR 
60T0 170 

FRINT "ES STARBEN "3D;" LEUT 
E IN EINEM JAHR.": PRINT "DE 
INE UNTERTANEN REVOLTIEREN U 
ND PRINT "ERMORDEN DICH. . 


SCTO 1180 

PRINT "DU HAST NUR ";A;" HEK 
TAR LAND." 

KRINT 

KEIURN 

FRINI "DU HAST NUR "453" BAL 
LEN GETREIDE." 

PRINT 

RETURN 

C= INTERDWKS +1 
RETURN 

PRINT "WEGEN UNSINNIGER BEFE 
HLE WURDEST DU": PRINT "DEIN 








PL = INT (Pi 4 10) 7 10 
FRINI "IN DEINER 10-JAEHRIGE 
N AMISZEIT STARBEN DURSCHN-T 
TLICH "zP1;"% DER EINWOHNER, 
D.H. =5 STARBEN "; 








L4a=27=L=<ınt ia a 1o 
02 7 am 








950 PRINT "AM ANFANG DEINER HERR 
SCHAFFT HATTE JEDER": FRINT 
"EINWOHNER 10 HEXTAR LAND. JE 





TZT HAT": PRINT z >RINT L; 
HEKTAR LAND. 

960 WEIT - 16204,120: POKE - 1 
6268,0 

970 HOME 

980 IF Pi > 32 THEN G0TO 050 

990 IFL > 12 THEN G0TO 1170 

1000 IF Pi > 10 THEN B50TO 1110 

1010 IFL > 9 THEN BOTO 1150 

1020 IF PL > -A1 THEN 6010 11a 
o 

1070 IF L > & THEN 5010 1150 

1020 GOTD 1160 

1050 HOME 

1060 FRINT "DIE RFUNHNER KARYLON 
$ WELLEN DICH NACH"» PRINT = 
PRINT "WEITERE 10 JAHRE AN 
DER SFITZE IHRES": PRINT = PRINT 








"STAATES m 

1070 JAHR = +10 

1080 WAIT - 16384,128: POKE - 
163€8,0 

1020 HOPE 


1100 6070 211 

1110 PRINT "DU WARSTS EIN MITTEL 
GUTER KOENIG.”: PRINT : PRINT 
"SEHR RLHMVOLL IST DAS NICHT 


1120 6010 1210 

1130 PRINT "DIE GROESSE DEINE LA 
NDEE IST FAST": PRINT : PRINT 
"SLEICHGEEL IEBEN, 5070 121 
o 

1140 PRINT "DAS VOLK WIL. DICH W 
EITERE 10 JAHRE AN": PRINT : 
PRINT "SEINER SPITZE WISSEN 
.': BOTO 1070 

1150 PRINT "DU WARST KEIN ALZU G 
UIER HERRSCHER.": PRINT : >RINT 
"DU WIRST DEINES AMTZS ENTHO 
BEN..." 

1169 PRINT "WEGEN PRASSEREI WIRS 
T DU ERSCHUSSEN.": PRINT : PRINT 
"SCHALE,DU SOLLTEST HALI BES 
SER SEIN.": GOTD 1199 

1170 FRINT "DU WARST EIN GUIER H 
ERRECHER. DAS VOLK": SRINT 2 =KINT 
"BEETIMFTE DICH FUER WEITERE 
10 JAHRE": PRINT : >RINT-"Z 
UM HERRSCHER KARYLONS-- 
zJAHR = JAHR + 103 FORT = 1 
TO 2606: NEXT Ir TEXT z GDTO 
170 

1180 PRINT "DU WARST ZU GEIZIG.. 


1170 BOTO 1259 























1200 PRINT "DEINE HERSCHAFF” WAR 


NIZHT SCHLECHT." 
1210 AB.- INT {PK RND (DI +2 


1220 IFAB< 
so 

1256 PRINT AB;" DEINER UNTERTANE 
N MACHTEN DICH": PRINT : PRINT 

R ZUM HERRSCHER" 
2 


Fr 2 THEN 6010 12 





1240 

1250 

1260 INPUT 3 

1270 IF.@ « O0 TIIEN GOTO 900 

1280 RETURN 

1320 PRINT "DU HAST NUR " 
LLEN." 

1330 RETURN 

1340 4 = INT CRND (I) x 15) + 
u 

1350 IF GH = 





Da 


1 THEN PRINT N 
VOLK BEKAM ZJWACHS 5 
:P=P+ INT (P / Dı RETURN 





1260 IF GH = 2 THEN SA INT (8 
4 2): PRINT "WEGEN ALTER SC 

HULDEN WURDEN ";5As PRINT "B 
ALLEN BESIH-ASNAHNT. IS 7 8 = 
jap: RETÜRN 

1370\ IF GH = 2 THEN AF = INT ( RND 
N 229) + 1sAY = AF #10: PRINT 
"DI HAST "zAY5" HEKTAR LAND 
GEERBT.":A = A + AY: RETURN 








12380 IF GH =4THFN BF = INT € RIND 
4) #8) + 1:BY = BF K 10: PRINT 
"DEIN FEIND ANNEKTIERTF ";RY 
;" HEKTAR": PRINT "LAND..." 

= A- BY: RETURN 

1390 IF zZ = 25 THEN PRINT "JUBT 
LAEUM !!! 25 JAHRE HERRSCHER 

FRINT "EIN FREUND SCHENKT 

DIR 250 HEKTAR”: PRINT "LAN 

D.....":A = A + 250: RETURN 








1406 IF GH = 5 THEN GU = INT ( 
c0C #& RND (13): =RINT "DEIN 
E SOLDATEN HABEN ZINE RAEUBE 
FEFNDE GEFANGENGENDMMEN. DU 
BEKOMMST ";GU:5 = 5 + Bl: PRINT 
"BFLLEN BRLOHNUNG !11": RETURN 








1210 IFGH=7THENGK= INT 65 
co % END (1))= PRINT "AUS D 
EINEN EETREIDELAGERN WERDEN 
";6K:5 = 5 - GKz PRINT "BALL 
EN VEN UNBEKANNTEN ENTWENDET 

LIE" ZRETURN 
1426 RETURN 
1439 GOTE 1070 

















"Kniffel” wurde schon von den Landsera im Ersten Weltkrieg, unter dem Nas 
»Hindenhurgspiel”, geschätzt. Schrhekannt gewesen ist es vorallem in den zwanzigeı 


Kniffel 


für den TI-99/4A 








und dreißiger Jahren in Skandinavien unter dem Namen "Yahtzee”. 


Nachdem Anzahl und Namen der 
Spieler eingegeben worden sind, ruft 
der Comauter automatisch für jeden 
Spieldirchgang die Namen auf, 

Jeder Spieler hat max. 3 Würfe mit bis 
zu 5 Würleln pro Durchgang and muß 
versuchen, eine für ıhn sinnvolle 
Zahlenkombination zu erreichen. 

Mit den Tasten 1 - 5 lassen sich ent- 
sprechend die jeweiligen Zahlen des 
Wurfes (Taste 3=3. Zahl des Wurles) 
die gesammelt werden wollen, in das 
nächste Wurfleld schreiben. 

Mit.der Lzertuste würfel: mun die noch 
übrggebliebenen. nicht gesammelten 
Würfel dazu. 

Durch Drücken der Tasie"R" 
ein Vezippen der Tasten ”. - 
rückgäng.g machen. 

Hat man alla 3 Wärfe verbraucht oder 
schon vorher eine geeignete Zahlen- 








jäßt sich 
” wieder 











kombination erreicht, kann nun die 
Pünktzahl für diese Zahlenreike durch 
Drücken. der davoısteleuden Tasıe 
eingetragen und gespeichert werden, 
wobei die gewürfelter. Zah’en für die 
Kombination G-L noch zcardnet u 
den müssen. Hierzu mußdie Taste ”Q 
gediückt werden und die Zutlen wie 
folgtgeordnei (mit Hil’ederTasten 1 5: 
sa): 











Falls die gewurfelte Zahlenkombi- 
naticn nicht in die Liste eingetragen 
werden kann, muß ein beliebig>s. noch 
freies Zahlenfell Cer.Liste gestrichen 














werden (d.k. Punktzahl = O). Dafür 
braucht nur die Taste "S” gedrückt 
werden, und anschließend die Taste 
des zu streichenden Zahlenfeldss. 
Nachdem der Spieler seine Zuhlen- 
sombination eingetragen hat, muß er 
die ENTER-Taste drücken, und der 
Computer ruft den nichsten Spizler 
auf 

Wenn alle 13 Durchgänge vorüber 
sind, zeigt der Computer automatisch 
die Punkte aller Spiele an und erstellt 
die Siegertabelle. 

Talls cin Spiele zum zweiteumalciien 
KNIFFEL pewörfeltha;, mußerdiesen 
und zlle felgenden in der Zeile O- 
Bonus eintragen, wofür sr jz 100 Punkte 
bekommt. Dieser Bonus ist nur ein 
Zusatz und zählt nicht als digener 
Durchgang. 











AD REM setinstaknendunen: 

20 REM * ” 

30 REM = KNIFFEL » 

AD REM “ 

EM REM Hakaktandaraiunk 

sQ REM 

1Q0 CALL CLEAR 

112 OPTION BASE 1 

120 DIM xc5),D(44. 9) ,NANESCE).SUMCS) 
130 REM 

140 REM * VORSPANN * 

158 REM 

160 CALL SCREENGIE) 

17@ CALL COLOR«2, 9,13 

180 FOR N=5 TD 12 

198 CALL COLORCN, N» 1) 

200 NEXT N 

21@ CALL HCHARCID, 1114213) 
22@ CALL HEHAR 11,19, 42) 

23@ CALL HCHARCIZ, 11,42, 9) 
248 CALL HCHARCIL, 11, AZ) 

25@ CALL HCHAR(11. 12, 88,7) 
268 FOR H=1Z TO IS 

270 REnD Z 

288 FOR N=30 TO Z STEP -1 
290 CALL SOUND(-1, 333,3) 

300 CALL HCHARCIL,H,N) 

zı0 NEXT N 

320 CALL SOUND (192, 300. 3) 

330 NEXT H 

340 DATA 75, 78, 73, 78, 70: 69, 76,32 
350 CALL SOUND(1520, 262. 5, 330,3, 382,3) 
360 FOR N=1 TO 302, 

370 NEXT N 

580 0070 1408 

330 REM 

420 REM w UNTERPROGRAMN * 
aıD REN 

420 IF KEY-IE THEN 452 

430 CALL GEHARCKEY+S, 28, 2) 
440 IF 2022 THEN 2522 

450 H=1NT(Y/100) 

460 I=INTCLY-ICORHI 712) 

478 EmY-1QBmh- 102 

4AD IF HOO THEN Sim 

490 IF Z()0 THEN 520 

5ao 6070 530 

810 CALL HEHFRCKEY+S: LE: H+aB) 
520 CALL HCHFR (KEY+S, 19, Z+40) 
530 CALL HLHARCKFY4T. 70, FraR) 
540 RETURN 

550 VaXl1IHKL2IHKLHI HK CHI +KCHI 
566 FÜR n=ı TU U 

578 IF KIND GKENALD-M THEN 2528 
580 NEXT N 

530 Y=Y+. 21 

5@0 GOSUB 420 

512 RETURN 

522 Y=® 

522 OR Ne: TO S 

540 IF X{NIOKEY THEN 668 
5SO Y=Y+KEY 

EED NEXT.N 

678 Y-Y+.D: 

SED GOSUB 420 

630 RETURN 

708 REN 

710 REN = AA-Fe # 

720 ren 

739 DALL SOUND(-308. 20€. 2) 
749 GOSU3 520 














738 DXEY,A)=Y 

768 RETURN 

770 REM 

730 REM #* aGıhe * 

70 REN 

S@0 CA-L SIUND{-390, 308, 2) 
818 C=KEY-5 

820 KEY=XEY+4 

830 GOSUB 550 

B4B DCKEV-4, A=Y 

859 RETURN 

BED REM 

870 REM #* Iıle * 

S8B REM 

830 CALL SOUND:-980, SDR, 2) 
SAM T=INTCXFY/R. 251 

91@ KEY=INTCKEY/CI+KEY 
920 IF X(4) (!XLSITHEN 2520 
350 IF XL1)=0 IHEN You 
948 Y-12. 540 

950 GOSUB 560 

ED DCKEY-4, A)=Y 

970 RETURN 

3E0 Rem 

33D REM # rihLe » 

1202 rem 

121@ CALL SOUND<-908, 308,2) 
1028 KEY=KEY+S 

1050 LeKey-11 

1840 IF X(1)=® THEN :078 
1252 M=1 

1LEQ Y=(KEY-I1)*iO 

127@ GOSUB 558 

1050 M=u 

1298 DCKEY- 4, Army 

1180 RETURN 

111@ REM 

1120 REM w Ne * 

1150 REM . 

114@ CALL SOUNDC-908,300:2), 
1152 KEY=17 

116@ YaXtid+KCDI+KLTIHNCLIAK CHI 4 DL 
117@ GOSUB 428 

1180 DC1S,A)=Y 

119Q RETURN 

1202 REM 

121B REM * +0 * 

1220 REM u 

1232 CALL SOUND (-30Q, 210,2) 
1260 IF X(1)=® THEN 2520 
1258 CHLL GC4NRCLS, 19,2) 
1268 IF Z=32 THEN 2520 
1270 KEY=18 

1288 C=4 

18 CALL GCHAR(Z1, 18,7) 
178@ IF 2-32 THEN 133B 
171M V=CVALCCHRSCZ) )+1)*10R 
1320 08 

1338 Y=11 GOSUB 5680 

1556 DU1I=Y 

1368 RR1S7® REM 

1389 REF = SPIELREGELN = 
1390 FEM 

1400 CALL CLEAR 

141@ CALL SCREEN(S) 

142@ FOR N=2 T0 & 

143@ CALL COLOTCN: 1611) 
1240 NEXT N 

1452 CALL COLORC9, 2, 1) 
146® CALL CO-OR(IB- 2,1) 











"1870 PRINT ® ## ANIFFEL mensın 





1480 PRINT "EINER  - NUR IER ZAEHLEN"E" = SIPSECHSER - NUR BER ZAEHLEN® 
149Q PRINT "SER-PRSCH - MIND. 3 GLEICHE ZAHLEN" ETAER-PASCH - MIN 
D.5 GLEICHE - ZAHLEN" ® 

1500 PRINI 3"FULL HOUSE $ GLEICHE +2 GLEISHE ZAHLEN": 

1510 PRINT "STRASBE-KL-_ - AER-FOLGERTMSTRADIGECONE - SER-FOLDEN:: 


1520 PRINT "KNIFFEL - 5 GLEICHE ZAHLEN'3"CHANCE - ALLE AUGEN ZREHLENT:: 
1350 CALL HOHAR(24,29,62,2) 

1SaR CALL KEY CA, KEYıSTAT} 

1550 IF STAT=@ THEN 1548 

1350 CALL CLEAR 





157 PRINT "DDERE NACLFTEH BONUS #SSPIKTe WENN GEST 
Y=63 PkTtasssae 
1580 PRINT "UNTERE HAELF”E: BONUS #18D« JE ZUSAETZ- 
LICHEN" STADCITISTKNIFFEL" 
1390 PRIN” srazzası® Act 


1500 CALL KEY(D: KEY. STAT) 
IS1B IF STAT=@ THEN 1620 

1620 CALL CLEAR ® 

{63Q PRINT " TASTENBEDEJTUNG“ 113 :"TASTE BEDEUTUNG“ 121" 1-5 SAMMELN 
R ZAHLEN“ RE 

1640 PRINT * G  ORDUFN N=R ZAHLENFEEH" S STREICHEN VON ZAHLEN "an 
185@ PRINT". R VERBESSERN Vom VERTLPPEN":: 

1660 CALL KEY CL, KaYı STAND 











1870 THEN 1630 
1680 

1690 Ken m SPIELSIRRT * 
1700 Ren 


17I@ CALL CLEAR 
1720 INPUT "ANZAH. DER SPIE-ER: ":SPIEL 
1739 IF CEPIEL(L)FCEPIELIS) CD THEN 1720 
174Q FOR E=i TC SPIEL 

1750 INPUT "NANES "ENRIESCH) 

1760 IF LENCNAFERCH»? (20 Ti 

1770 CALL SOUNGC22B, 222, 3) 
1780 PRINT ı° # NAME TO LONG mtr: 
1738 c0TO 1758 

1800 NET A 

1810 CALL CLEAR 

192@ CNLL CHARCIOs, "aaanenpaagpe: 
1830 CALL CHARCIOS, "OBODEBBARaBO=F 
1840 CALL CHAR(LOS, "OaanaanaBanB2102") 
1050 CALL CIIARC1O7, "0292020202022202*) 
1860 CALL CHARC1, "@201") 

1878 CALL CHARCLB9, "aB=F") 

1008 CALL CHAR(L1A, "4BaB") 

1899 CALL CHARCLIL, "a0 DAQA249RD4QLa") 
1909 CALL CHARCLOB, "DB2D10039.081020") 





1020 





an. 











1DI® PRINT = NAMEaTEN NA. 2nan eure 
1928 PRINT “ A-EINER 1. WIRFwEN B-ZWEIER"L* P-DREIER'S" D-VIERERNEN 
E-FUENFER" 2 "_F=SECHSER" 





1330 PRINT" BESEMT“ «won.s» wur" GESAMTAIeN:: 
1940 PRINT * G-SER-PASCH"I" H-AER-PASCH' 2" T-FIRL HOUBE©S® KSTRABEESKLANG: L-oT 
RASBErGR« 3, KURF 

1390 PRINT * MKNEFPEL"2" N-CHANZE* 2" O-MUNUS""  GESAMTeZENGE 

1969 FOR N=1 TC 8 5 

197@ CALL HCHAR (2A, NS, AECCSEGEC"ENDSUMNE®, N.19)) 

1309 NEXT N 

199m Falı HEHARCIA.E, 120) 

200@ CALL HCHARC12, 
ZUI@ CALL HCHARCZZ, =. 100) 
720 CALL HCHARC18. 16. 108) 
203@ CALL HCHAR« 12» 15, 100, 2) 
2@40 CALL HCHARC22, 15, 108,2) 
?05@ CALL HCHARC24: =. 100) 
250 CALL VCHARCA, 17, 180,9) 
270 CALL VCHARCLA, 17, 108,3) 
20UB CALL HEHARCZA. 14. 1BR. 4) 
2098 FOR n=7 TO 21 ETE> 7 
Z10@ CALL HCHARCN-1,25. 105) 
Z11@ CALL HEHARCN, 28, 187) 
2120 CALL HCHARCN+1,25. LES) 
2130 CALL HCHARCN-1, 26, 185,5) 
2140 ONLL HGHARCN+L,2G. 180,5) 
215@ CALL HCHARCN-1,31, 184) 
2168 CALL HCHARCN, Sl, 111) 
2178 CALL HCHAREN+L»SI: 110) 
2188 NEXT N 

2190 A=0 

2208 A=arı 

2219 IF MSPLEL THEN 219€ 
2228 CALL HCHARCA, 12, 32,20) 
2238 ALL HCHARC2. 12, 32,22 
2248 CALL VCHARCA, LE, 32, 21) 
2258 CALL VCHARCA, 15, 22.219 



































2209 CALL VEIIARCA, 20, 22, 219 

2278 FOR N=1 TO LENINAMESCA)) 

2220 CALL HEHARCI, N-LI.ASCIBEGSNAHESCAI N, 19) 
2200 noxt N 

2700 CALL HCHARC2, 12, A+4B) 

2318 FOR h=1 TO 15 

2328 IF DINIA)=B THEN ZU60 

238 YeD(H, A) 

240 KEV=NHINTEN/I a 

2208 aosus 450 

2360 NEXT N 

2378 IF DIIAA)=Q THEN 2uie 

Zen YeDaiära) 

2390 Key=ie 

Zum GOSUB 4s® 

2410 IF ANZSISKSPIEL THEN 3530 

2420 R=0 = 
2450 1-0 

2440 RANDONIZE 

Tas Ran+7 

2460 FOR N=141 TO 5 

Zu70 KEN) SINTEERAND)+L 

Farm DALı HOHARCR. N+25 

2498 NEXT N 
zo ı=0 

>51m user 

2520 N=Q 

2880 CALL KEY CB, KEY: STATI 

254m IE STAT=@ THEN 2850 

2350 IF STAT=-L TMEN 2530 

2460 IF KEY=E2 THEN J16B 

257@ IF ReiA. I THEN 2618 

2500 IF KEYISS THEN 2760 

239@ IF R=21 THEN 2528 

2608 IF Kev=r2 TrEN 2u48 

ZEI@ IF KEY(49 THEN 2620 

2620 IF KEYISS THEN 2520 

2672 KEv=KEN-AR 

2EAQ IF I=5 THEN 2530 

2650 FOR N=i TO I 

2E6B IF KEV-VALLBEGE CHEN. DITHEN 2630 
2670 NEXT N 

ZEBO HESHRASTRELKEY) 

2698 Imzrt 

2700 CALL GCHARCK.KEY+2S.2) - 
2710 XUHD=VALCCHRECZI) 

2728 CALL HEHNACH+7. 1428, XI) +40) 
2730 IF 15 THEN 2750 

2740 R=21 

27398 garo 2u30 

2760 IF KEY(6S THEN 2530 

2778 IF KEYISS THEN 2550 

2780 IF R-21 THEN 2820 

2790 IF 1-@ THEN 2820 

ZEAD CALL GCHAACH+T, 30, 23 

Zei@ Ir 2-22 TEN 29: 
2820 
2830 
2840 
2850 KEV=KEY-EA 

2860 Dh KEY GOSUE 710,712, 719, 710,710, 710,780, 720, 879,2530, 990, 590. 878,1120,1210 
1 2330, 2390, 2032, 302 

2870 IF KEY=IR THEN 290m 

2EBO CRLL KEY(B, KEY, STATI 

ZeU0 Ir KEYO1S IMEN 2UU0 

28aB CELL HCHARCT. 23. 72.5) 5 

221@ CELL HEHARL 144 26,32: 9) 

ZV2W LELL HIHARLAL: 26, 32 3) 

2932 IF KEY=1@ THEN 2/20 

2340 ANZ=ANZ+L 

295@ IF ANZ=SPIEL«IS THEN 3292 

2962 IF SPIeL=i THEN 2422 

2978 GT 2z00 

2980 REM 

2998 REM + ORDNEN + 

Faaa REM 

3010 FOR u=1 T0 5 

3028 CNLL HEHNR«21.25-N,32: 

33@ ALL HCHAR( 14, 25-N, KiN+4B) 

Za40 NEXT N 

z05Q Ric. 

360 G0TO 2530 

3070 Rem 

3400 REM «+ STREICHEN = 

3030 REM 

S1a0 CALL_SOUNDC-3U2, 509,3; 








KiND+HAR) 











. —.-— 0 008 08 0 8 8 8 rer ro 5 oe 


























zı1a 
3128 
Zıza 
Et 
3158 
Sı158 Rem m VERBESSERN # 
zı7a rem 

3180 CALL SOUNDIS@0. 208,3) 

Si9a Ir R-21 TUCH 253€ 

I20@ CALL GCHARCR+T, SE, Zı 

3218 IF 2032 THEN 250 

322@ roR Neı To 8 

3230 CALL GCHARCR.N+ZE, 2» 

3240 XCND=VALLCHRECT)) 

3298 CALL HÖMRLRFT- N+20. 329 

SED NEXTN  " 

S270 c0TO 2908 

3280 Rerı 

3298 REM m AUSRECHUEN m 

3a rem 

3310 FOR a=ı TO SPIEL 

3222 corn 2>>0 

3550 Y=INTCDEI,AIADERAIHDES, D+DCA, AI+DES, AIADEE, A) 

Sau ner=r 

3350 0SUR usa 

3360 IF YIES THEN ZADR 

S300 Yayısa 

Fan a Armarcıı, 19.517 

3390 CALL HEHARCIL, 28,573 

Sauı KEY=Y 

Sam cosup ıs@ 

3a2D SUMAI=Y 

3450 YmENI KDLI-HIHDLEAIFDCH BHDCIA,AIHDIAI+DEIZE AI+DLISHAIADCLAH RD) 
Fand Keveig 

3450 GOSUR use 

TED SUMCAI-BUNERI+T 

3478 Key=zi 

TAG0 Y=SUnCR) 

3a9D GOSUB 450 

300 REM 

3510 Rem  SIEGERTABELLE » 

‚3520 REM 

3578 CALL KEViB. KEY. BTAT) 

340 IF STAT=D THEN 3230 

3550 NEXT A 

330 cnLL cıam 

3370 CALL SCREEN<7) 

380 7=0 

3890 FOR u=1 T0 20 

IRB CALL SOUNDK-2U8. -1,3) 

SE1® CALL SOUNDE-208, -2, 3) 

3628 NEXT N 

3630 PRINT TAB!S);"«“ SIEGERTABELL 
3648 FOR N=1 TO INTL22/CSPIELFLDI-L 

Zesa PRINT 

366B NEXT N 

3678 FOR 2=1 TO SPIEL 

3608 FOR MeZıi TC OMIEL 

363@ IF SUMCH) (SLMCZITHEN 3762 

3700 E=SUncz) 

3710 aumcz)-Bunch 

3729 SUMCHI=E 

3750 WS=NAMER CT) 

3748 NAHER CZ) -HAFES:H) 

3758 NAMES CH)=Hs. 

3760 NEXT H x 

ITTO PRINT TABISENELB-ZIHIISSTRECHH". "HAAMERIZISTABCZSILEUM:Z) 
ITAn FÜR N=1 TO INTEAZ/CSPIELHLII-L 

3730 PRINT 

3a06 nexı m 

zeım NEXT 7 

3820 CALL KEY (B, HEY. STAT) 

343% IH SIAT=O THEN SEzO 

Zeh@ CALL CLEAR 

3ESD ANZ=a 

SE6Q FÜR N=1 TO SPIEL 

z870 simm=@ 

3ES@ NAMES (m 
3890 FOR H=1 TO 14 

3920 DiH.N)=@ 

3318 NEXT H 

3920 NEXT.N 

3I5B INPUT "NOCH EIN SPIELT [Eu “us 
3940 IF ASC(WS)=74 THEN 1718 

3350 IF Asccus) (78 THEN 3530 

Sen en - 
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Mauerklauer 
für den TI 99/4 


jauerklauer” wird mit zwei verschiedenen Figuren gespielt: Mit den 
” Figuren” und der "Eigenen Figur”. Auf dem Bildschirm ist eine Mauer 
aufgebaut, über die Sie klettern müssen um ins Freie zu gelangen. 





Dies geht aber nur, wenn Sie die | türlich auch zu fangen. für jede Ve.se.zung 50 Punk.c. Ihr Ziel 
Mauersteine abriumen und somit | Auf dem Spielfeldrand efinden sich | istes,über der Bildschirmrund aufdie 
Punkte sammeln. mehrere unsichtbare Punkte. auf ce- | andere Seite zu entsommen. denn 


Jetzt treten die Wächler in Aktion, | nen die eigene Figur versetzt-wird. Der | dorthin können Ihnen die Wächter 
verfolgen Sie und versucher. Sie na- | Ort der Versetzung is. zufällig es gibt | nicht folgen. 


1808 REN RRRRRRRECKRRERK 

110 REM %*%% MAUERKLAUER Which 

120 REM % PROGRAMMIERT VON * 

190 REM X H-P SCHLIANECK 8% 

148 REM 3% BRAUNSCHWEIG Hk 

159 REM RRRBRRORKERKIRK 

168 CALL CHAR« 126, " LB3ICSATETE4ZFESA" ) 
179 CALL CHARS35, "ILPEEPETETETEIC") 
188 CALL CHARS 42, " LBISFFIDSCICZEZ4") 
199 CALL COLORS 12,13,10> 

289 CALL COLOR 1,7,19> 

219 ZALL CLEAR b 
220 PRINT "nkaakikakakahoßsiikalakislskeiakiainiik" 


PRINT 

248 PRINT " MAUERKLAUER 1 

250 PRINT 

269 PRINT "RRRRRRKRRRRRRERIORRIGORTSKK" 

270 FOR TE=1 TO 14 

289 PRINT 

298 NEXT TE 

aaa GOSLB 9639 

a1a PRINT "SPIELREGELN?C J-N)" 

328 CALL KEYKO,K,SY 

338 IF K=?4 THEN 366 

349 IF Km?8 THEN 728 

350 GOTO 320 

368 CALL CLEAR 

370 CALL SCREEN 10) 

388 PRINT "EIGENE FIGUR x*" 

398 PRINT 

408 PRINT "WAECHTER FIGUR m" 
PRINT “ 


420 PRINT "DIE UAECHTER VERFOLGEN SIE UNE VERSUCHEN SIE ZU FANGEN.DIE HAECHTER 
KOENNEN ABER NICHT LIEBER DIE", 
439 PRINT "MAUERN KLETTERN" 
448 PRINT 
BEINE "SIE SAMMELN PUNKTE, INDEM SIEDIE MAUERSTEINE MORAEUMEN. " 
468 PRIN 
478 PRINT "AUF DEM SPIELFELD BEFINDEN SICH MEHRERE UNSICHTBARE PUNKTE, AUF DE 
HEN DIE EIGENE FIZUR VESETZT" 
BE PRINT " WIRD." 
a PRINT "DER ORT DER VERSETZUNG IST ZUFRELLIG. ES GIBT FUER JEDE WERSETZU 
\ SQ PIINKTE." 
s®2 PRINT 
318 PRINT "WEITER MIT SPACE TASTE." 
523 CALL KEYLB,KEY.STATUS> 
532 IF KEY<>32 THEN S2e 
54a CALL CLEAR 
39 PRINT "SIE KOENNEN LEBER DEN BILDSCHIRMRAND AUF DIE ANDERE SEITE 
ENTKOMMEN," 
63 PRINT 











57@ PRINT "DEHN DIE UAECHTER KOFNKEN  DORTHIN NICHT FOLGEN." 

SsA PRINT 

5390 PRINT "ES WIRD EIN ZEITLIMIT GESETZT.SIE MUESSEN SICH ALSO BEEILEN 
UM ALLE MAUERN ZU BESEITIGEN." > 

sen PRINT 


619 PRINT "GESTEUERT WIRD MIT DEN TASTEN: " 


620 PRINT 

639 PRINT " KCOBEN> " 

64@ PRINT HACLINKSI SCRECHTS>" 

629 PRINT MEUNTEN >" 1, 

669 PRINT . n 

679 PRINT "ALLES VERSTANDEN? 5 DANN BITTE DIE SPACZ TASTE DRUECKEN, " 


6ER CALL KEYLR,KEY.STATUSY 

650 IF KEY<>3Z THEN 698 

729 SCHRE=D 

739 CALL CLEAR 

720 ZEM="bIE ZEIT IST ABGELAUFEN" 

724 VER="SIE SIND GEFANGEN HORDEN VERSUCHEN SIE E8 NOCHMAL" 
?4@ INPUT "WIE VIELE MAUERN?" ıMAUER 

20 ale THEN 738 


778 FRINT "ZU WIELE MAUERN. VERSUCHEN SIE Z& NOCH EINMAL." 

ren GOTO 748 

raa IF MAUER>? THEN 830 

S29 PRINT 

#18 PRINT "ZU WENIG MAUERN. VERSUCHEN SIE ES NOCH EINMAL." 

#29 GOTN 748 

838 INPUT "LEGEN SIE DEN SCHWUIERIGKEITSGRAD DURCH DIE ANZAHL DER GEGNER FESTI 

"SGRAD 

a4 IF SGRAD>L THEN SH 

850 PRINT 

@a6cd PRINT "LEIDER ZI) WENIG GEGNER. UREHLEN SIE NOCH EINMAL." 

@78 GOTC 930 

ac IF SGRAD<S THEN 926 

858 PRINT 

@88 PRINT "ZU VIELE GEGNER.LIAFHLEN SIE NOCH EINMEL." 
' 18 GOTO 838 

‚220 PRINT "ZUM START SPACE TASTE DRUECKEN UND 2 MIN. WARTEN." 
529 CALL KEYCB,KEY,STATUS>I 
940 IF KEYCY3Z2 THEN 939 
920 GOSUB 3638 
9€9 CALL COLORK12,19,18> 
279 CALL COLORL,7.12> 
9EQ SCORE=B 
359 GET STE ERaLANNER 
1209 CALL CLEAR 
1219 CALL SCREEN(12> 
1eze STEINZAHL=O 
1830 FOR M=9 TO MAUER 
1240 RANDOMIZE 
1058 A=INTC2AKRHD) 
1060 X=INTC 22ERND+3> 
1276 Y=iHTCIEKRND+2 > 
1eam IF AXi THEN 1110 
1299 CALL HCHART Y,K,35,7) 
1109 GOTO 1123 
1118 CALL VCHARY,R, 33.7) 
1120 NEXT M 
1196 REN VERSETZUNGEN 
4148" FOR VERS-i TO SCRADKS 
1158 VX= INT! 3AKRND+2) 
1169 YYeINT ZXRND+2) 
1179 CALL COLIRES,1,1> 
1189 CALL HEHARCWILYN ST 














HERT vers 

Rem STEINE ZHEHLEN 

FOR ZEIL=1 TO 24 

FOR SPAl=t TO se 

ERLL SCHARGZE:L, SPAL, DIHALT> 
IF INHALT 38 THEN 120 
STEINZAHLMSTEINZUHLeL 
NEXT SP. 
HEXT ZEIL 
Re STaRTet 
OFTION BABE 1 
Rrwonnze 
DIN SRce) 
DIN YRce) 
FOR Tei To srRaD 

RE LISIHTEZEÄRNDrE > 

Ne LIMENTG AARHDIE 

ALL BEHARCVRCH DRS TJELHLL) 
ERLL, BERMRE YET) KRET 3-1 ıLz 
EPLL GEHARCYRÜTDELSKREL LH) 
CFLL GCHARCYR«TD-L NAEH D,LA) 
GPL GCHRREYRETD,MRE LS. LE) 
IF CLIFLBeLBHLARSILLED THEN 1348 
Next ı 

REMINTE SARA) 

YEmIHTE LOKRNDeA 

CRLL SCHARI VS, NS, Le 

IF Lens THEN 1490 

FOR ı=1 TO Sorno 

ALL HEHARCYRETD.HRG TI. 1ZED 
NER 

ERLL HEHAREYB, NE 2) 

REM. ORSENTIERUNGSOLEIFE 

IF ScRnDe>t TAEN 1860 

FOR lei TO 1528 

NERT 

coro terg 

IF SCRADC>2 TEN 1590 

FOR Hei TO 1230 

ENT N 

Cora teen 

IF SCRNDE>3 TIEN 1840 

For uni TO 180 

NEXT U 

070 1eco 

FOR Met TO ca 

HExT u 

Yar=o 

ERLL SOUNDE=BB8 808,87 

ÜMLL SUUND«=330,508,0) 

ERLL SOUND =960.784,0) 

EALL SOUND =339,382,0) 

ERLL BUND! -S90/ 876,0} 

REM SPIELBETRIEB 

ZEITRZELT-L 

1E ZEIPIO THEN Isıe 
1F_ACORECHLSCORE TKEN 1770 
HISCORE=SCORE 

CALL CLEAR 

IF VAR=L THEN 1200 

PRINT zea 

PRINT "SCORE SCORE 

PRINT NMTRASEMREN IMIRETDE 
PRINT "NOCHMAL? DANN TASTE I" 
FOR T=ı TO 200 

OALL. KErCA,KEY, STATUS» 

IF STAIJSMO nen 1870 

IF KEYa?a THEN 1900 ELSE 1800 
NEXT T 

PRINT "aAHE CUER 

END 

Garn rin 

REM BEIEGUNG SPIELERFIGUR 
HL KErCg KEY SIR IUSD 

IF KEYe7S THEN 21:0 

GALL VOAARLYEIKS, SE) 

Yanvenı 

IF 1859 THEN 1920 

Hauzs 

ALL GEAARE YES, unD 

IF URC335 THEN 2020 
SECRFSACDRFEN 
STEINZAHLESTEINZAHL-I 

Ir vACDIZE TrEN 2078 

sosus an 

FUN ei 1u 58 


Tone 


IF Vacye7 THEN 2aso 
Gosya ade 
SALL HEHFMCHS,AS,S2) 
GITO Bsee 
17 Ka7077 THEN am00 
SALL VOHEREYE NE.) 








2199 voryaı 

Zis0 ir Yxzz men zıeu 

2130 vi 

2169 CAL GCHARCYS. HS. un) 
IF Unesss Tmelı 2200 

SEORE=SCORE-. 

STEINEAFLSSTEINZEHL-L 

IF VRGDIZE THEN 2282 

Gase 00 

FIR Pmi Tn ma 

har p 

Yet 

saro 1739 

IF VFC>37 THEN 2260 

SCSLE 3308 

2288 CFLL HEHARLYS.RS, HE) 
Ser 2860 

IF KEYCJ&S THEN zasa 

ERLL_ YEhmerSUnE, 82) 

Kamnar 5 

IF REC33 THEN 2350 = 

Könt 

EALL GEHAREFS.KS, vn) 

Ir Yrc>s9 nen 2390 

SCORE=SCORE+E 

STEIKZAHLMSTELHZAHL-1 

2398 IF VECYIZR THEN Pada 








2330 arro Iso 
2450 Gaye 


400 Ir KEYe>6S THEN 2 
2499 CELL VOHARYS.RS, 32) 
Koma 


IF R9)0 THEN 2820 
KE=S2 


ERLL. CENARE VE, NE.YES 
IF YnC93S THEN zU78 
SCOREMSCORE+ 10 
SZEINZEHL=STEINZAHL-T 
IF VAGIIZE THEN 2E20 





GT 1730 
Ir UMG237 IHEN 26a 
GOsuB 3300 

ERLL YEAR: 18,K5,42) 

REM STEUKAUNG REOWMERFIEUR 
IF STEINZFAL)O THEN 2699 
G0suB 3920 

G0TO 993 

FOR tel TO SCRnG 

FOR ScHRITTeL 70 2 
RANDOMLZE 

ZUFSINTEZARHE) 

IF zUre98 THEN 2010 

IF RRCIDCHS THEN 2080 
KRETJEMRE 3-1 

IF KACLDO THEN 2730 
BReH=L 

ALL. GOHARCYRELIUHRCDLFD 
IF Fe>ss mer 2620 
KRCDEHRETDEL 

COTO 2008 


IF_Fe»a2 TER Dane 
asus Ma8 

ET 170 

CALL VOHRRCYRCID.KRCIIAL, SE) 
EALCL VORNE NS ADIRKLLD, 1253 
TO 278 

RRCLERRLI 

17 Mae1»caa THEN 2918 - 
KRCD=32 

ER GEMMRCYBELHURCLD.m> 

12 Fey2s TMEN 2350 

RE Deka Dei 

ara aı80 

17 Feos2 IHEN 2380 

cn cAoR 

STO 1759 

EALL VCHAREVRETIIHRENI-1,0E> 
ICALL VCHARCYRETILHREID, 12: 
coro 3276 

IF VREIDEVE THEN 2152 
HRCHImHRC II: 

IF WREID0 THEN 3059 
NRCII= 

RL, GCHARCYRELDHRCLD,F> 
17 Fe3=R THEN ancn 





2900 
210 
R23 
ze 
zs0 
295 
2060 
Fa 
zo 
29” 
63 


sat 


3338 PRINT "CRATULIERZE! ALLE STEINE WEG-GESCHEFFT-.WARTEN SIE CH © 
ICH NEUE MAUERN AUFGESAUT HABE," 
3949 GOSUB 363€ 

950 RETURN 





3978 YRCIYYREIDHL 
Se00 10-0 zen 
3096 IF Fcya2 THEN a1zo 
Siee GosuB 3488 
atıa 00-0 ı7=a 
S128 CALL VCHARCHRELDLSHREII.DEN 
3130 CALL VOHARCIRELMRELD LEE) 
3148 C0°O az72 
3190 YRCTDmYRE 191 
3169 IF YRCIYSS THEN a1ee 
a170 Yrc1)=32 
3190 CALL. GOHARCHRELSHRLD.D 
3130 IF Fe)3s THEN 2220 
3208 YRc1yarm. 11 
az10 Coro arsa 
3229 IF Fe»a2 THEN Seno 
3250 CosuB Saao 
3240 GoO 1752 
3230 CALL YCHNEIELI=I YRELD, 325 
3260 CALL. VCHARCYRELDEHRELD 128) 
3278 NEXT SCHRITT 
3298 NEXT ı 
3230 6070 (722 
9390 Ren VERSETZUNG DERECHHEN 
3210 KSRINTe SAARND+2) 
"3329 YS-INTc ZEARNDe2 > 
13338 CALL SCHARCYS.KS, INHALT) 
3288 IF INHALTOS2 THEN 3310 
Asa FOR Tai Tn pm 
8360 CALL SOLNDC=S,110+Tx198,0) 
370 NEXT T 
322 SCORE-SCOREASE 
RETURN 


ALan PRINT vEn 
31B FOR C=1 103 
3420 roR 9-1 10 a0 
342@ OALL SOLNDE=1,1000-2043,8) 
Scan Nut 5 
3use NEXT 2 
360 YAr= 
378 ON-L BOMDC2EO,448,0) 
Sue EA-L SOLNDC150,998,0) 
34398 En_L S0WDE 130,336,0. 
A580 ER-L SOUMDC150,234.0) 
S5e CR-L 2007 130,277,0) 
3520 CR.L SOWMDe RR, 262.0) 
3538 ERLL SOLHDC3SU, 220,8) 
3940 ONIL SOUNDE2O0. 204,0) 
3330 CRLL SOLNDC2EB,204,0) 
Spbw UHAL SUCH LUD 
3578 CALL SOUNDG200 262,03 
IL SOUND 2E0,220,0) 
L SOLNDEAEO. 16,05 
L SOUNDG120,220,0% 
1 50u0«100,210,0) 














3E56 FALL sous ten,220.0> 
Sran FOR erlr=i Tn and 
3650 NEXT FALSE 

3650 SAL. SOLDG100,217.03 
3670 GRLL, SOUND 1003 262,0) 
eins FOR Paste 10 200 
BEg@ NEXT PALSE 

3780 CELL SOLNDLI0B, 196,23 
719 EALL Sonn 





74 CAL SOmDCEE,247,2) 
3758 CFLL SOUNDEECO,252. 2) 
A76B GALL SOUNDC100,349, 29 
FTTE CALL SCUNDc100,330,2 


EALL SQUNDLEOB, 282,3) 
EALL SOUNDLZOR, a20.3) 
ERLL_SOUND«An8, 430,39 
FCR FAUSE=I TO = 
ya enüse, 
GPL SOUNDE 192, 230,89 


ER FIT Sram 1an.aae.n) 


3398 CFLL SCUND: 100,330,0) 
2208 SELL SOUND: 100.320.03 


HINUTEN, BIS 








Dieses Programm trainiert in heryorragendem M: 


SINCLAIR ZX-81 


Memory 
für den ZX 81 I6K 





die Konzentra 


ons- und 


Merkfähigkeit: im Zeitalter der totalen Reizüberflutung sicher ein wertvoller Beitrag. 


Nach dem Programmstart maldet sich 
der Computer mit "ICH RECHNE”, 
wobei er intern das DIM-Array aus 
dem CHRS-Set zusammenstrieit. mit 
welchem Sie in der nüchsten halsen 
Stunde gepeinigt weden sollen. 

Nachdem Sie den Schwierigkeitsgrad 
gewählt haben, tauchen die eısten vieı 
Feichen aufdem Schirm auf, entweder 
in einem Block (Stufe 1). oder nach- 
einander (Stufe 2), Diese Zeich 

















Sie sich merken und in cer 


müssen 
richiigen Reihznfolge eingeben ‘je 
nach Schwisrigkeitsgrad im Dock, 





oder nacheinander). 
War alles richtig. erscheinen die v.er 
Zeichen zusammen mit dem nächsten 
und sc weiter, bis Sıe maxımal 50 
Zeichen enzugeben haben 

War die Eingabe "alsch, so kana per 
Tastz R die richtige Reihenfolge ıbge- 
rufen ‚werden. .wobe: der Compu:er 





dann ein neues DIM-Feld berechne 
Drücken Sie dageren cie Taste W 
erscheinen die letzten Zeichen noch 
einmal mit einer neuen Zeichen dazu 
und Ihner werden 2) Punkte ahgr- 
zogen. Für jedes richt ge Zeichen gibt 
eseinen Punkt unc je nach Höhe der 
Punktzahl einen Textkorımenlar. 

D:e Führung durch das Programm ist 
so gut, caß kaum mehr dazu gesagt zu 
werden braucht, 
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Homecomputer 25 













EMORY" 
sss22s22z MEMOR 


"TRSINIERE DEIN GEDRE 
CHTNIS: DER COMPUTER GIET DIR KU 
RZ_ EINE ZEI-CHENFOLCE VOR, DEREN 
REIHENFOLGE ZU BEHALTEN UND AUF 
REFRAGE, HIN EINZUGEBEN IST EB SE 
ND 2 SCHWEE-RICKE ITSERRDE ÜSEHLE 


7 PRINT "BEI RICHTIGER EINSAB 
E_KOMMT JE- WEILS 1 ZEICHEN DAZU 
‚BIS MAXIMALSO ZEICHEN." 

8_PRINT "EINE TASTE DRUECKEN 
ZUM START: 

PAUSE 424 
LET Be4 














© 
10 
11 LET C$=" IST RICHTIG.‘ 
12. LET De=" IST FALSCH. " 
13 LET P=@ 
15 015 
38 DIM As 50) 
21 PRINT AT 1@,11;"s#+ ICH RECH 
NE_#%#" 
22 LET B=. 
35 FOR N=1 To so 
38 LET X= Hi ENDE = N 
31 IF_ xx DALETXX- 
88 LET As TEEHRE RIInE SEN Tun uErkeN 
48 NEXT IP X Sue THEM KOT 0 
de_BRINT ‚BO; "ICH BIN FERT 
16“ DENN DU STARTKEARBISTDHNN DR 
ÜEEKE EINE BELFEBISETASTE UND ES 
. GEHT LOS. zF3#348% 
50 ıF INKEVSENT THEN GOTO 58 
53_PRINT "un ODER 2 1 
anBBeREBRT "WOHER A 
Er z 
3 5 
CH_SARETE_Döch: 1 
ee 
ZEICHEN.” __" B 
s? FOR N-o TO so 
58 NEXT N 
59 CLS 
&0 FOR _N=1_ TO B 
65 IE $=1 THEN PRINT AS{N; 
688 IE S=1 Yu GoTo 88 
73 FOR _M=e_To 
8 IP sus THEN PRINT AT 18,12; 
ASED) 
EXT_M 
78 PRINTUFT a@,11;" " 
88 NEXT N 
85 FOR_N=2 TO 30 
88 NEXT N 
88 ver B$=A$t1 TO _Br 
98 IF_S=3 THEN PRINT "ALLES GL 


T BEHALTEN FL 
E 











THEN PRINT 
T_IN Einen Block DIE 
REIHENFOLGE Ein," 

188 FOR N=1 TO 

185 INPUT Us 

118 Ir 5-1 AND Us=B$ THEN PRINT 


s 
IND U$=B$ THEN-GOTO 


"SIB JETZ 
RICHTIGE 






AND Usc2B8 THEN PRIN 
AND Usc>Bs THEN @OTo 
AND Us=Astn) THEN PR 
;us;coe 

AN Usoasım THEN e 
AND Us<>As in) THEN © 





451 LET Ps=! 
138 BRINT ar. „23,8 "PUNKTE=" 
155 LET B=B+ 
iSe FOR _N=0 To so 
157 NEXT N 
150 cLs 
159 IF 8>1@ THEN GOSUB Sea 
158 &0T0 A5 
328 FOR _N=0O TO se 
31a NEXT N 
313 CES 
3238 PRINT" DU DIE RICHTIGE 
BSSHENFOLGEU SIeR WILLST,TIEPE 
TA: R._ ZUMUEITERMHCHEN DRÜECKE 


Dess lensennen ALLERDINGS 28 PU 


THEN soTo ses 
THEN LET P=P- 


THEN sorTo a5 


SRINT 85," WAR DIE RICHTIGE 
REIHENFOLGE» 





IF JINKEYS="u 


338 FoR N-6 ro 20a 

331 NEXTN 

332 CLs 

335 RUN 80 

520 SLs 

Sıe IF_B>ı10 AND B<15_THEN PRINT 
„BU SısT GUTER DURSESCHNITLAT 
520 IF B>15 AND B<au THE: Int 


zBU SIT BANZ Bun, 





IE_3>20 An B<2S THEN PRINT 
Palsäezeienner 
FEIN Tolles BERAECHTNINeN 
"EIN TOLLES Fan 
s48 IF _5>58 AND 5<4@ THEN PRINT 
"IOH_STAUNE NUR NOCH." 
4@ THEN PRINT "ABSOLUT 
STUNG. so 00. 
856 IF 8368 THEN PRINT "SPIELEN 


Der 
Ssa IF 5>58 THEN STor 
578 RETURN 


sattesıse HEMORY zassaareee 


TRAINIERE DEIN GEDASCHTNIS: DER 
GOMPUTER GIBT DIR KÜRz EINE ZEI- 
EHENFOLGE ÜDR, DEREN, REIHENFOLGE 
ZU BEHALTEN UND AUF ABFARSE HIN 
EINZUGESEN IST.ES SIND 2 SCHWIE- 
RIGKEITSSRADE ÜBEHLBAR. 

SEI RICHTIGER EINGABE KOMMT JE- 
WEILS 1 ZEICHEN DAZU,BIS NAXIMAL 
S3 ZEICHEN. 

SINE TASTE DRUECKEN ZUM START: 








SINCLAIR ZX-SPECTRUM 


Ufo 
für den Speetrum I6K 


Dieses Programm nutzt jeden nur erdenklichen Programmiertrick aus, um 
Speicherplatz zu sparen. Das ganze Programm kostet nicht vielmehr als IK, 





Ziel des Spieles: TasteOkaaneine Raketeg 
Es ist ein Ufo zu tieflen, welches ınit | gestartet werden. 

sehr ruckartigen Zappelbewegu ‚chten Hälfie 
im Sereentop umhertaumel 
gere Base wirc mit cen Tastcı 





ger dasUfo | ven mehr als 30 Punkten ist miserabel. 
Sie werden merken, daß Sie nach dieser 
äufig schwach spi 










stroffen. 
werden 














Fuer die Spielfiguren muessen 218 BEEP 1,40: BEEP „7,22: BEER 
Tolgende Buchstaben im GRAPHIC- .5,20 
MODUS eingegeben werden: 218 PRINT AT NOT X," tif: 
fuer 4,A; fuer BD; Smer hut; PAUSE 8: PrALSE 0 
tver £,D; fver © 238 CLS : 
san_FR FLASH 
1; B @ 
M FOR 
en FOKE USER ustt, 
Br“ ‚2,3,15,127,26558,127 
8: ‚2,192,240,254,255, 
LER BoteBsalaen YR" ,24,50,159,169,255, 
EN x 9 
AND. SSo"BAth "2" ‚24,50,126,24,24,60 
38 ter bmb+tik AND x+x3-I1NOT K ‚126, 235 
AND _b} 560 DATA "N" „138,86,38,154,89,5 
4@ LET USYHttINKEYES"B"IA(yCES | 6,74,174 





I LENKEYESTS I Bao) It &aa’FüR n=-ı TO 
LET _f=faz S&1 BEEP".2 18. "seep „2,12; see 
180 ıFr n350 THEN Let bzänt (auD | PÜe2,30: PAUSE ig: BEER 18,2: 
“aa +1 sö2'Prüse 36: BEEP_ .3,16: BEER 
130 PRINT AT NOT X,b; Ink 2,” 4 | „2,212; BEEP ‚2,10: PAUSE ie: BEE 
Be ";RT X,U; INK 1:77 5” AT Rd, | Pues: 


Y+zi EN ak" AND a;AT %-d,y3Z} 653 bhuse 20: _Beep_.a,5: BEEp_, 
uez a 


3.9; BEEP „2,15, BEER «2,14: BEE 
a,AND yeb AND nor d-x rm | Pl 24.28; BEEF .5,10 


EM ©o Toter sa4 NEXT. 

150 IF d=k THEN LET q=NOT x $e5 PAUSE 20; BEER „5.12; PAUSE 
iso Ir 4=x HEN ber den ie; BEEP_ .2,i2: BEER 5 BEE 
170 IF NOT INKEYS="2" IHEN on 7 | p „2,12: BgER „2,10: BES 8:. BE 











0.20 Ep .i,10: BEEP .8,10: BEER .s,16 
108 LET 4=SGN x: LET d=NOT x $0& BEEP_.3,0; 'BEEF ‚8,9.1: BEE 
190 SEEP_.03,.5 P_.3,5: BEEP .&,2: BEEP .S,3 
380 co 10'22 7&2 RETURN 
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CREATING FANTASIES FOR 
DINO EINEN 





HOPPER _ 
‚Can you help Fergy and his. All machine code -very fast-- 
friends get aeross the 4 lane Superb graphics Better thanthe 
highwey-andl back to the Ily ieinal 

‚Pond? 8 
Includes Crocosiles, Logs, 6 








MAKERS 


ZX81, SPECTRUM, 
IORIC AND BBC 





LIGHT CYCLE ATTACK 


All the speed and excitement ‚Attack isa EN fast, all machine 
yau could want, very addictive. code arcade style vn 

Race and black Ihe computer or You. are the ‚Chief Yy 
a ee Officer on the prison 


SPECTRUM 16K. ABK. 3:95 





WICOSOFT gltel a a H ESSESTO NN ZIEHEN REIIE 





SINCLAIR ZX-81 


Drakulas Diamanten 
für den 16K ZX 31 








Bei Interpol ist die os: Die wertvollen Diamanten der Gattin des Milliardär 
N... Sirmel, sind vor drei Tagen verschwunden, 

Man fand Frau Sirmel am Vlontagmorzen sowohl ihres Blutes als auch ihres 
Schmuckes beraubt, tot auf dem knichohen Perser liegen, das Fenster auf, den 
fort. Der Verdacht fiel sofort auf den jungen Graten D., aus folgenden drei 






1, Er hatte weder ein Alibi noch eine 
Erklärung lür sein saıtes Aussehen. 

2. Er hatte noch Stunden später ent- 
setzlichen Mandgeruch. 

3. Da u ‚en Jahren den 
gräflichen Lindsitz in Transsilvanien 
erbte (sein Vater wırde traeischer- 
weise von einem sogen. Prof. Popov 
ermordzt), multe er eine horrende 
Erbschaftssteuer zahlen und steckt nun 
über beide Beißrähne in Schulden 
Das Schloß ist verpländet, der Graf 
selbst arbeitet als Nachtwäzhter, Pro- 
reklor einer Mittelschule und ls 
Programmierer rund um die Uhr 









Heute wohnt der Grafin einer beschei- 
‚denen 4 1/2-Zimmerwohnung in einem 
kleinbürgerlichen Villenviertel 
Da vermusct wird, daß die Beute dort 
versteckt ist, beuufliugı man Dich sie zu 
suchen (und sie zu dure suchen). Du 
hast nur zwei Möglichkeiten: Ner seste 
lesende Detektiv zu bleiben oder der5. 
beste Tote zu wercen. Die anderen 4 
waren schon drin; Friede ikrer Asche. 
Du tzittst in das Wohnzimmer ein, die 
schwere eiserne Tür fällt hinter Dir zu. 
Zu Deiner Beruhigung schlucks: Du 
Valium, 

Jetzt kann die Sache beginnen. 























DIE RÄUME 


Der Wohnraum 
Gleich beim Eintrict fallı das seltsame 
Bild an der gegenüscrliegerden Wand 
und der gehlfinte Vorhang links auf 
die beide in arauenhaften Farben 
gehalten sind. Ein kalter, zügiger 
Lufistrom aus dem zwar zeeffncten, 
aber durch ein Moskitonctz gesichei- 
ten Fenster. Nehen der Tür rit dem 
runden Grilf‘stein Kasten in die Wand 
eingelassen. Aufdem weichen Teppich 
stehtein medriges lischehen. überdem 
ein geschmackvolle Leuclitei prunkt. 
In den Keller führt eine Falltür. 











Der Keller 
Hin feuchter, Jüsterer und schmutziger 
Raum. Ein Mocerduft schwebt in der 
staubigen Luft (wahrscheinlich von 
dem olfenen Sarg am Boden ats- 
gehend). An der Wand hängt ein roh 
gezimmertes Rezal mit seltsamen Po- 
fel. Daneben ist derSicherungsschalter 
angebracht, mit dem der © 
Hauses an und ausgesch ılı 
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0 SANCLAUR ZX-81 


Sonst hefinden sich nur noch 4 | einen. von der sch.ecaten Spülu: 
Spinnweben und I Feuerwehrleiterim | WC's und der ebenso schlec 
Ra Verdauung des Graf 








&s | Betrisb gesetzt wird. Links der To.lette 
ien ‚| belindei sich ein marmornes Wasch 
zeugerd. (Altes , über dem ein haltblindsr 
Geschlecht, altes Gedä ). Über dem ‚| sein klägliches Dasein friste. 
WC hängt ein altersschwacher Ven- | Links an der Wan hängt ein weiches 
r Gestank empfängt | ülatır der durch einen Knonf in | Handtuch mit Monogramm. 














Die Küche 
Eine stinknormale Vesaadhauskuche 
Kleinbürger”) 





Kählschran 
führt eine Tür. Der Raum ist blitz- 
sauber (Drasula ißt meistens aus- 
wärts), Ein leichter Gasgeruch stert 
empfindliche Nasen. 





Das Turmzimmer 
Ein Zeichen nostalgischer Gefühle des | 
Bewolners. Ein hohe., Kölller, runder | 
Rıum, dessen Muuer aus groben | 
Steinen locker peftigt ist. Fin Stein ist 
ziemlich abgegriffen und steht etwas | 
vor. Ein winziges Fenster wirft ein 
düsteres Licht user eine verschlossen 
Kiste. 








ingabe 

Dieses Adventure ist ein illustriertes 
lextadventure. Die Eingabe erfolgt in. 
zwei Worten: Substantiv und Verb, die 
folgendsrmasen eingegeben werden: 

Subst, Leerzeichen Verb 

ZB.: "Tenster schen”. Das kann aber 
auch aul 'Fen seh” verkürzt werden. 
Fragt das Programm nach einen 
Gegenstand, s0 muß mun den voll- 
stindigen Namen desselben eingeben. | 
Wenn man einen Ausgang benutzen | 
will. muß man nur den Buchstaben der | 
gewenschten Richiung eingeben. Bei 
jedem Raum ist im Räcken Süd, links 
West. usw Zum Ranf- und Runter | 
steigen kann man oben und uaten be- 
nutzen. Bei einer "No Geit’- Melllung 
hatte man keinen Erfolg mit der 
Richtung. 

















Übrigens: 
Im Haus sind fünf’Tips versteckt, (auf 
Zetteln. eingeritzt usw.). Keiner ist 
weitlos. Hicı uch ein sechster 

"Ist das Holz erst abgelegt, ist der stink 
wie wegge eg 


PS. Man starte mit GOTO 30) N/L 








Zum Listing, 

Das Listing ist schrlang (2 m) und füllt 
das I6K Ram komplett aus. Aus diesem 
Grund sollte auf keinen Fall etwas 
hinzugefügt. geändert oder wegge- 
lassen werden: weder die Graphiken, 
noch die manchmal etwas lakonischen 
Antworten. noch die Zeilernummern 
Am Anfang jeden Raumes stehen zwei 
längere Printbefehle, die weiterhin so 
lang bleiben sollten. 

Zwei Sachen sollteu veränderl weiden. 
Zeile 600 gelöscht 

Zeile 1500 mit IF NOT All) ANDXS: 
ergänzt werden. 
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aBReM EEE 
TOnEEELM 
SasLcEer iM 
42 IF LEN 


ey 2.SEIeT 







HTURE) 
5 


E= 





13 LET H$sngt TO +MgE 
ar EB 








Bi 

i IF H=3 THE 

& IE H=22 

4 IE Ata) =2 TDEN OL 
7 

8 





IF H=24 THEN Gosui 





© 
= 
2 
= 


28 RETURN 
31 IF M::@ TYEN PETURN 
32 Print H, 

33 PRINT ar 
a";TAB a; " 


u 
u 





"58 PRINT AT 18,0; "AHHH,EIN GEL 
ST.DU MACHST VOR Angst Fast L 
N_DIE HOSE.DOCH uD- MIT VERTEIDT 
ssT bu DICH 

Sı INPUT L# 

S2_IF Ateı=2 AND Es="STAUBSAUS 
ER" THEN SCTO 60 





83 Beruan 
Er 
151 ";Ri 
AT 4,27; ° 




















39 LET =" Ge" 
21 GOTO 250 
S® CLS 
&ı GOsus ı2@ 
92 PRI! 
ı ES 
iei For 
ı04 PRI 
En 
ı1@ = 
nis 
ıs2 FOR I=15 TO 21 
188 PRINT AT I,&,Ch 
16@ NEXT I 
i65 RETURN 
220 GOSUB 190 
3985_BRrNT Ar eI,s 
"26 THEN EBI6 235 
a THEN STORE 
Lu} THEN GOTCG 329 
ı 


I DRIULUTD 


THEN GOTO sc2 


8 
822 IE INKEY$ 
B THEN G0T0 R 


223 Ir INKEYS 
235 corü 322 





as” 


"TAB 27; 





5 ses SrögsinB 
ER AT 10,5; \ 


FRUSE 2008 











280 IF INKEYE&-"N" THEN STOP 


530 Eis 
581 PRINT FT 3,02; EOS = 
"SAT 12,6; 








) 
DEIN BEFEHL?" 





93="0.K." 
>57 PAUSE sa 
358 _60T0_ 1899 
418° IF LEN E$32 OR Eg=" 


aaa 
411 IF LEN E$=1 THEN GOTO 448 
428 FOR _I=1 TO LEN Ex 
425 JE,EFID=" " THEN G0TO 450 


438 NEXT 
STEn" THEN 00TO 200 





" THEN 














„818 IF X$="FENSEH" THEN LE 
SeRERNET IHMMER NOCH SO TEL 

„SER WEITER IDIOTISCHE ADUENTUR 
sa KERANZ" OR Atay c>ı 

THE 

52 = 

53 S$ 

53 V=i 

53 

35 $="" AND Z6( TO_2) ="SEH 

y THEN LET A$="NICHTS BESONDERES 
Sa7 Im Ay="" THEN LET A$="GEHT 

NICHT" 

S35 RETURN 

558 For I=ı8 TO 21 


555 PRINT AT T,a;n# 
578 NEXT_I 

575 PRINT AT 18,0, 
538 RETURN 

ı889 IF D=2 THEN GOTO 1219 
ıs01 

1aas 







SEHSHR 
Tpmteberm arg 





BR 





IF Ati) THEN PRINT AT ao,ı2 


IF _NOT_Ai2) THEN GOTO 1863 
re 

NEXT I ES 
IF_Nt4)».S THEN PRINT AT I, 
"ZSTAB 11; "m"; TAB 11; "m 














h 




































sa 
aan 




















"NA UA,ETÜRS SELTSAM. . 
1518 IF Xax>"TEFGEH" OR 


Aısı 
H_SOTO_1320 


IF XS45"SCHNEN" 


THEN eoro 





"TISSTE" THEN GOTO 
THEN GOTO 1544 


1348 IF X$:> 
ssa 
1841 ıF Aia2 














10 
no; 
25 
AR 
1965 
Pass 
aara 
Pa 
iopa_re Als) THEN_ BRIWF AT S,115 
eins eg 
aa? And (nor atslı 
— 
ss THEN LET va=" BE 
Töse ror ı=4 Tu 7 3 
1891 PRINT AT T,15:Y% 
3032 NEXT r 
us 
‚ı251 
Lisa 
i1s3 
1154 
1ise 
11ss 
TiS7 
zı58 
Ti88 
1158 
ilsz Er ABO EXIT" THEN 0010 Fr 
+28 
1170 ım ne=waor" Ten aoru 11a 
1173 
11r7a sasyn s08 
3175 AND D=2 
THEN 
1200 





1280 IF { THEN GOTO 126 
1281 IF_NOT Als) THEN LET As="s= 
Bel er 919) HEN coTo_400e 

2s2 » 

1284 IF Eg='8" THEN LET Ate Be 
TEE 1er eecıHne THEN GOTg 2185 
1271 IF Ale) THEN GOTO 2008 

ıi272 PRINT AT 18,8, "WIE SOLL ICH 
nEFFNEN?" 

1273 INPUT E$ 

ı274 GOSUB 4090 

IeEr IF X&t>"GRIGRE" THEN GOTO i 
1276 LET Acsı=ı 

3277 GüTo 3220 

1299 GOTDO 1153 

1288 IF A9:>"VORZIE" TIIEN GOTO i 
223 

1301 LET As=0$ 

12a Ler Ata)sı 

41589 IF %X$="BILSEH" THE: LET At= 


Tr= 





OR NOT Ata) 





s&2 azt or mer THE 
N_SITO_1588 

1362 PRINT AT 18,0; "ANGENAGELT.W 
SHIT ENTFERNEN?" 

15383 INPUT E53 

1364_ IF Es="ZANGE” AND A132) 
S Let az) =2 

1365_IF At7)=2 THEN 
SUR ENTDECKT" 

1585 cosuE sse 


THE 
LET Ag="TRES 





1363 IF NOT Ail} AND Ag="TISSEH'" 
THEN LEI As="ZETTEL" \ 
1379 TF NOT A{7) OR X&23""TREDEF" 
THEIW_SOTU 13380 

1371 PRINT AT 16,0; "cope =?" 
1373 ınPur F& 

1373 IF Esc5"5875" THEN G0TO 1253 
1374 LET atsı=a 

1375 LET Ag="OH,EIN BRETT“ 

1388 IE Not nis) DR X#c> "BRENEH 
Tagen soTg 1300 

1381 LET Ad) = 

3383 ber Adeor 

1590 IF x$e>"ÄASOEF" THEN GOTO 1 
1391 LET Atal=1 


1393 
1400 














B 
{6 
(3. 
ı1 
18) THEN PRINT AT 19,1 
ı2) THEN PRINT AT 4,6; 
.THEN FRınT AT 8, 
“TREN PRINT AT 12,5 
THEN PRINT AT 8,13 
E_ NOT At15) THEN PRINT AT 





RETURN 
IF_E#="0" THEN GOTO 1800 
SCTO 1190 

IF xX$i>"ZETNEH" THEN GOTO 3 


LET At19)=1 

FIN ZEITEL NIT DER 
SCBSEH" THEN LET A&= 
EeFCH IF x$+>"KNODRU" THEN GOTO 2 
E 


2311 LET A215) =NOT Mı1S) s 


Iü 
















2353 INPUT E 
3553 IF E%: 
THEN GOTO 





ID ORTEN 
D VOABBHRAUTRGI- 


voR 
BHONAIHNMADTAAAANAA IH 


HDDNPISLSNEIDHNPMEDN NN 


@ 


BAT SRRAUTd TI! 


4 
acu 
OMAgDD 


UN NZDUPO 


ERNMARRUNT 





EROHD! 


mn 


GIS -PPDRFIUWOLÄGN! 
B908H22-BennVnmnnD: 


haut 


TPURBE! 


Ki 





d 


Tr 


KHEHRRD 


IRRE ATETAETT] 

















E 3 ICK 
IF x$(>"REGSEH" THEN GOTO > 
IF NOT Ati2ı THEN LET #$= 





MIT Atı11l) THEN LET Ager$ 
ESUERG 





2338 IF X4<> "MEINEH“ THEN G0T0 > 


Ber naynı 
IF x$1>"BLUNEH” THEN gUrD > 











HEıs : NOT ALL 
PRINT AT 15,@; "UND ALS Hans 
IHPUT 24 

rrayngeuLe“ UR nur 


R 





32 OR X#2>"BLUTRE" 


n 


ET As 


S,ABER oa 18T u 
EH" OR NOT Acı4 


HETIH 
xl 
522961 
470-1 
SHHcn © 
Ssmon- 
zen 


a DNON 







iD} 


HIMEn mm nD 


7 
D_ un 


7 
3 
u 
[53 
>D 
a 
E73 
; 
\ 
K 


Ten 
gu 


2, 


m 
zx 

AZI2 

TODE 


Nca 
Q 
3 





Ho-anurdi 
ECCUHZ, 


NBTUTH" END @1171 


In 
oO :ameH 
WIAHDNOM-O 
wD9 sıoZ 





"VERSTAUET"ON 


ICH SEHE 4 SCHRA 
EIST DU DICH?" 


R 
IRAUBENZIEHER" AND 
© 2860 


ISTICKT" 


4 aUagH HAa r_ Ho 


SPONONDZ: 


© 
DOHDOTO-HHEBDTAHR 


Or nmomo Mm: 
OcO_CIMCHZO_Omc; 


Ha_tada4 IH 
ıD DOMmsi4i D #0 


ä 























LET Beuoss 
LET As="IEHH, "+66 
SsosuB 20 
IF Atlas) =2°Hei ® 
8) =2 THEN L = 

garten ET Rııa)=ı 

18) cr acım s 
Etat =) AND acısı 
esta 1ısa 
F atası 8 





tası THE 











23958 _IF_A 
AT 1,15, 
3952 NEXT I 
39278 RETURN 
ss5g IF Es 
3855 80T0 115 
588 IF Nor Atlas an 
THEN LET A$="HAKE 
3338 Ir X#c> "HAKNEH 


LET A$=0$ 

LET Ato4)=ı 

IF xKeS"HANNFH" THEN G0TO 3 
+ 

7i=1 

WASSER" THEN LET_ As 
LIEST DER SCHLÜESSEL 
IF X$<>"KNODRU” THEN G0TO 3 
TE NOT ACIS) THEN GOTO 3354 
LET Araaı «nor ncao 

LET A$="KLICK" 

IF_NnOT Atlisı AND NOT Rt18 
"Je STE" THEN GOTO 3 


ZE „NOT Alas) THEN GOTO aoss 





5; THEN G0T0 100g 
xX4="WC SE 
THEN G0T0 3 



























ae" 
3355 
sses [IS UC SEP ALLEN 
ASTA IF %X&2>BRESTE" OR NOT Atis 
}_THEN G0T0 3338 
3571 Ir Atis} AND Atıs) THEN BOT 
5_3364 
3372 LET Atı8)=2 
3373 LET As=0% 
3388 IF NOT Alaı or xEis"RRFARı" 
THEN G0TO 3338 
22861 LET Acila)=ı 
3382 LET Be 


b AND Alid)=ün 
ASC>"JUWNEH“ 





THEN RETURN 
2481 PRINT ST 18,0;0%5". 


283 510» 

Qaa „TE ajıms+ntısı sms) =a THEN 
coTo 3254 

3201 IE 3 THEN LET 3=8+1 

3795 Ir 3 THE EBZNT AT S,26,0E8 
707 den PRINT AT 9.#5 
ErEte SETURN 

3720 = 

3785 or Sso 

Feet 











1005 LET R=r000 
4295 LET Rısas 
4297 GOSUB 
4813 LET A% 






























= 


dass ım ntzsı THEN Print AT 19,1 
4ass IF NOT Aig1) THEN GOTO 4065 






31,1 
THEN PRINT, nT. 
ıTaB 25; E53 


THEN GOTG_1098 















ai £: " THEN GOTO_ 1180 
4257 IF _A{21) THEN GOTO_ 50808 
4858 PRINT AT 18,0; "WONIT OEFFNE 
4251 INPUT Es 

4282 IF E CHLUESSEL" AND A(S) 
=2_THEN_GOTO Soao 

42593 SOSUR S6n 

12590 GOTO 1192 

4388 IF X$="BANSEH" THEN LET Ag= 
"NOTIZ TRINK ® 

ggde IF xach "Kun! THEN 6010 & 
4311 LET A(20 =1 

4338 IF nisay ano KS="KUESEN- rn 
D_NOT_A(26) THEN LET As="BERERES. 
WEITIEFGEFROREN:" 

“230 IP X: LNMNEH" OR NOT nı28 
)_THEN G0TO 4348 

4531 LET R$=0$ 

*“332 LET At26) =1 

SB IF XStı"KASOEF" THEN GOTO 4 
38! 

“#544 LET Aß="OH,ROHRE" 

«342 IF_NOT A(26) THEN LET Asen$ 
+7 UND ZUENDHOELZER" 

daaa ET Aıza)=ı 

4359 IF xEcı "KASSCH" THEN G0TO a 
38a 

a351 LFETA )=@ 

4352 LET AS -0$ 

4958 IF x42-Auss: 

I_THEN LET Ag="M 

4370 IF X) "MES 

a80 

4371 LET A229) =1 

4272 LET A$=0% 

45508 IF_KX&t>"ZUENEH" OR NOT Atz4 
i_THEN G0T0 4390 

4381 LET A(25}=1 

4322 LET N%=0$% 


asa0 RETURN 
“ra0_IE Alal=2 AND At24) 


THEN so 
TO_4712 









Fass == 

ae ee — 
5357 LET Rs 35 

5808 LET masse 








seas LET nı32)-@ 
5g12 GeSuB 28 
5932 GCro 120m 
5831 LET at33)=0 


„IF Rl28) THEN PRINT AT 12,1 


IF NOT _At31) THEN COTO sero 
5052 PRINT AT 3,8; "Pt" 
5953 FOR I-1 T0'& 








Sa54 PRINT TAB 8; "Bu" 
S@S5 NEXT I 
SOS5 PRINDHT 18,8," -";Ht 4,85 





";TAB_9;"B; TAB 8," 
sa72 IF NOT At2s) THEN BETURN 
5073 PRINT AT 2,17; 
Ze "TAB 17; 
";TAB_ 18; 
5872 Print nr 0,1 
zTaB'is; 


IHNEN PRINT AT 4,19 











3259 IF_E3s="5" IHEN S0TO 4000 
S2SS G0T0 1109 


S38@ IF X$<5"ZETNEH" THEN G0TO 5 


5381 LET nıa8) 
5382 LET A$="""HTNTER MODERNER K 
UNST VERBIRST SICH OFT WERTÜOLLE 


3319 IF x5<>"STEZIE" OR Alası TH 
EN BuTu Ssza 

Ss4t PRINT AT 18,5, "UOMIT LOCKER 
S212 ZNBUT £5 

5313 GnsuB s&o 

5314 IF Et, "MESSEN" 
} THEN REILAN 
SaıS LET n(agı=1 
5316 LET As =" 











OR NOT A123 





-UH,„EINE HOEH 





S32a IF NOT nam AND X$="HOESEH 
” AND M(29) THEN LET A$="SCHRAUS 
ENZICHER" 

RSEL IF .XS="BODSEH" THEN LET As= 


"ZETTEI 
5350 F xa4>"Schnen“ OR NOT Ras 
ı THEN SOTG 5340 

5331 LET 9$=0$ 

5352 LET Ataa!=ı 

Sa4Q IE Sg, "KISOEF" oR AsD TH 


EN GoTo 

5341 PRINT NT 18,8, "VERSCHLOSSEN 
„WOMIT? 

5542 INPUT E$ 


5343 GOosUB 560 





S345_IF E$<» "DIETRICH" 
35 THEN RETURN 
S348 LET A(sl)=1 
5347 GOSUB 5059 


OR NOT Fit 











35° BRAUT BT 18,8: "AU UEIA ER 
SE schier In DER’ Kıöre.non 
„ER DICH SFIsSEn. Ze. las TU 











INPUT 
Sosus 


END X4="KISSEH 
END_At31) TEEN LET A 
FO _IF KE9"ZANNEN" OR Nor Mnisı 
THEN_RETURN 

5371 LE: also 
372 LET ns 
S7a8 RETURN 
























Lift 
für den ZX 81 16K 


he gilt für | keine Tonbandgeräte zusammen; 
he wie für | serzt, sondern das Wort COMPU' 


Ohne Farbe und Geräu: 
dieses Programm das gl 





vie beim: Programm für den SPEC- 
TRUM beschrieben. 


























das SPECIRUM-Programm Lift. Ein | Ansonsten gilt gleiches für die 
weiterer Untersch Hier werden | dienung und die Tricks für Anfänger, 
ı soro_& 
3 SAVE rem PUNKTI 
5 LET PUNKTE=8 re 
Agenp" 
LET B$="COMPUTER“ = 
30 BRINT AT 5,24; I en 
198 FOR N=9 TO = 
dla PRINT AT N,e; = 
a2au IF N>S THER dar ATN,;'P >} 
ER EB END NS THEN PRINT ei 
PRINT ei 
x 
151 PRINT. AT 10,9; z.ı.. = 
188 FOR N=28_TO’0 stEpr'/i 





155 IF N>18 AND INKEYS="6" AND 
Ri.=@ THEN GOSUB 2354 

IF „TEN, RRINT AT N-4,63 
";AT N-2,5" 


35; "AT N41,5 








ar 
180 p 
„aaa Ir N=a THEN PRINT AT 3,6; 





2115 ,7F PL=1 AND Z=20 THEN GOsUuB 


@e@ IF N«4 AND ı THEN soro 93 
g = 2238, gif PL=1 AND Z=2® THEN GOSUR 


[7 
295 _IF N4>5 AND P=1 AND INKEYS$= 





"Sa een GOTQO 9000 Pt "NEXT zZ 
IF N=5 AND P=1 AND A 1138 IF min user LET P=1 
ar FEN Bösuß 2300 1135 LET PL= 
BER Ir SNÄeVEETNOTAel"Sosun 1 | 2355 DEE Erg. 
aa 8305 FOR_Z=5 TO 25 
82680 NEXT N 23807 IF Z=11 AND CO=1 THEN GOSUB 
278 LET P=8 _?eoe 
288 GOTO_168 2395 PRINT AT 5,5;“ 3 
2 FOR_Z=26 TO 5 STEP_-ı H 
e IF Z=5 AND N<19 THEN GOTO 9 
: 








PRINT AT_16,2;' 0 ";aT_172,Z 
"SAT 18,2," ‚ar 19,2," | 2335 IF INKEY&<CH"6" THEN RETURN 


2400 FOR z=5 19 20 





ERENT AT BD; AM 
EOR N=2_TO 
PRINT AT N, lssagsar n- 1,13; 







AND Ascan THE 
N LET PUNKTE=P 
ND sc" THE 
HEN LET BER) = 
FBSB IF A&<> AND Ascr"e TH 
EN LET PUNKT! KTE-1 

2288 NEXT_R 
7885 PRINT AT 
8,17; Ei} 
?7&88° FOR 1:8 Tı 


ZAT 





3 

IN 

12; "PUNKTE 
17;PUNKTE 
a2 
































7895 NEXT I ERZT...." 
7408 IF Bus" THEN GOTO 2920 STOP 
ssoa 9108 FOR Nn-0 To 100 
7419 RETURN 8193 NEXT N 
8900 FÜR M=20 TO_S STER —ı 3118 CL: 
N,25; "; TAB sı20 ERZNT "DU DIST NICHT AUSGES 
TIEGEN UND MUSST MIT SCHAEDELBR 
SISBRÜCH IN DIE KLINIK. 
a 2298 ARzW 
NT AT_16,5:" ";TAB 
x {RND +63) Ss“ ";TRB Tan Sn“ 
0592 IF_xX<38 THEN GOTD 8521 ";TAB 5;" x 
&503 PRINT AT 15,19; ">";CHR# X;" | 2207’FOR N=@ aaa 
4 3288 NEXT N 
&5984 FOR_J=1 TO 48 9219 CLS 
8508 NEXT 4 9238 PRINT "DU BIST IM FALSCHEN 
8515 IF INKEYE="A" THEN LET A$=c | MOMENT EIN- GESTIEGEN UND DER LI 
HRE_X FT UERLETZTEDICH S0,DASS DU INS 
gS17 PRINT AT 21,11 "WRSEENB"; Fr HOSPITAL GE-BRACHT ÜERDEN MUSSTE 
851 IF INKEY$="A" THEN RETURN 92398 STOP 
8520 NEXT I 3922 PAUSE 108 
560 33981 CLS 
„aa, En Tees | 5798 PRINT Vons 
8_s x acherne. Aar 
ene: To 200 
Et Sie Pause 150 
=90S 2811 OLS 
a@1@ PRINT "DU DURFTEST HIER NIT 9915 GOTO 9 


HT AUSSTEI- 





Nachdem das Programm eingetippt wurde, muß 
5050 kurz getestet werden. Ist dus Geräusch dor urbeitenden Maschinen zu hören, alsc 
dann können die Zeilen 5000 bis 500 ersatzlos 


alles richtig einge 
gelöscht werden. 


Die Zeilen 3.11,170,1119.2310.9010bis 
9180. 9300, 9400. 9608 bis9676 enthalten 
die User defined Grapbie's.<.h. die in 
diesen Zeilen stehenden Großbucl 
taber müssen im Graph .c-Modus 
eingegeben werden, sonst laufen später 
aur Anhäulungen von Buchstaben auf 
der Bild herum und kein Männchen. 
Wenn bicher allesinOrdnungist.dann 
ann das Programm mit GO TO 9% 
werden. 

















in. daß zweimal ge- 
saved wird; Einmal das Haupipro- 
zrumm und die Bytes der MC Routine. 
CTRUM fordert Sie sach 
Saven des Hauptprogrammes auf, eine 
Taste zu drükken. Tun Sie das sofort. 
Jamit kein unnctiger Zwischenr: um 
auf der Cassette entsteht. 
Beim Lond-Vorging brauchen Sie nur 
die Cassette laufen zu lassen: das 
Programm startet sich sel»st 





Spielheschreibung: 

Sie haben die Aufgabe Tonbandgeräte 
zusammenzubauen. die zus jeweils 9 
Teilen bestehen. Die Teile erhalten Siz 
unien in der Maierialauszabe. an der 
das Männchen auomarsch siehen- 
bleibt. 

Die erste FahrtmitdemLiftistinjedem 
Durchgang eine Lee-fahrt zur Im 
spektion der Anlage. Hierbei können 




















ppt w 














GEN UND BIST ABGESTÜ 


Lift 


für den Spectrum 16K 


den 





Sie keir. Teil mitnehmen 
Gesteuert wird die Laufrichtung des 
Männchens mit den Cursor Steuer- 
tasten 5. 6 und $ 
‚Wenn Sie die Teste 5 drücken und der 
linke Aufzug in de: richtigen Position 
zum Finsteigen bereitstcht, lauft das 
Mäuncher. los. steigt ein und fährt 
nachoben. Dortmüssen Sieim rechten 
Moment mit Taste 3 aussteigen, leulen 
automatisch zum rechten Lift und 
fahren mit diesem per Taste 6 nach 
une. Hieı dürfen Sie nur dann 
ussteigen, wenn der linke Lift ein- 
gshereit dastzht. 
Jeizt bleibt das Männchen an der 
Matericlausgabe stehen. an der ın 
zufalsbedingter Reihenfolge die Buu- 
teile für das Gerät auftauchen. Zur 
Annahme eines Teiles drücken Sie die 
entspre:hende Ziffsrntaste, die mit der 
Taile-Nummer identisch ist. Hatten Sie 
das Teil bzreits eirge>aut. so erhalten 
Se nur ein schwarzes Quadrat und 
Punktabzug. nachdem Sie es oben 
abgeladen haben. 
Haben Sieein Teil anzenomm:n, fährt 
der rechte Lift wieder nach ober und 
Sie kaulen auto.natisch in den linken 
Lift. mässen oben wieder zur rechten 
Zeit aussteigen und bleiben diesmal 
astomztisch an der Fingcbe stehen. 
das Teil fällt in den Schlitz, wird mit 
























































ne mil GO TO 


infernalischem Geräusch verarbeitet, 
an die richige Selle gesetzt und Sie 
laufen, wieder autcmatisch, in den 
rechten Lift. den Sie mi: dem Abwärts- 
pfeil nacı unten Jewegen 

Viele Bewezungsabläufe sird schon 
automauisiert, weil der normale Ablauf 
Sic schon cin gchöriges Maß un 
Konzentration und Geschicklichseit 
kostet. ist gar nicht so einfach, meh 
als 3 Geräe hintereinande“ zusam- 
menzubiuen. Dabei ist der rechte 
Aufzug völlig harmlos. Nur beim 
linken können Sie sich mit dem Ein- 
und Aussteigen total vorhaspeln. Das 
xostet jedesmal sämlliche Punkte und 
Sie müssen wieder von vorn beginnen. 
Dami. Sie es nich. gar so schwer haben, 
fahren die Aufzüge mit Musikbe- 
leitung. Achten beim Ein- oder 
Aussteigen nu- auf den richügen Ton. 
Zum Ein- oder Aussteigen muß derLilt 
mi: dem Fußboden ‚eweils eine Ehen. 
bilden. Am_ unteren Einsteigepunkt 
dü-fen Sie jedoch auch denn noch 
weitermachen, wenn Sie den Li‘t Imal 
um. eine Position über dem Fußboden 
verpadt aaben: Drucken Sie, wenn er 
wieder an der richtigen Stelle_ steht, 
einfuch noch einmal die Taste S. - 
Ich zwei Tricks für Anfänger: Sobald 
sich das Bild aufbau. halten Sie Taste 5 
test, bis der Monteur eingestiegen ist 



































und nach dem Aussteigen im oberen 
Bereich. halten Sie die Taste 6 fest: Der 
sechte Aufzug fährt dann scfort her- 
unter. Normalerweise geschieht dies 
erst wenn der linke Lift oben ver- 
schwunden ist, 

Zur besseren Übers.chtlichkzit fügen 


Sie bitte ne 





(Spielstart:) 


ein- und au 
rstuehlen! 
nien sin Tei 


Sam 


vrvon mug 
ercmma Mo 
Sonssw. In 


San 


un un 


ran 
Üdarrsı mu 
aar Yınke 


” 
Pry3] 


Sronr 






















so_T 
PRINT "DU bisı Monteur e 
grossenFabrik und musst s0( 
Tonband-geraete zusanmenkaug 
AT 49 "LO" AT 6,85 SOMP" AT 
. @ PRINT "Sei vorsichtig bein 
sin- und aussteigen bes den Fahr 
stuehlen! Dumusst Jeweils von un 
ten ein Teiirver das Tapadeck ab 
holen Und mit dem Lift nach ob 
en bringen aus dem rechten Lift 
darfst DU nur aussteigen werm 
der Linke einstiegsberei{ dest 
ehtır! zum starten bitte ei 
ne Tas 
8 Pi 
27 LET Punktes: 
86 
at LET Pl=8: LET as." 
10 
2a : LET Byi2) tu 
orale LET b&l4)="L" 
Ler LEr Bpi©} 
Era IET Belsı<ip 
20 DORDER 1: PABER_7 
80 PRINT AT 8,10; "Punkte 
LASH 1;punkte; FLESH_®; 
Be BRINT AT S,SE nk a; 
ı2@ FOR n=0 To’21 
„140 PRINT AT n,a; INVERSE 1; ın 
128 4 THEN PRINT AT n,2; 7 
NK x 


38 IF n>4 AND n<15 TH RINT 
arn,s: INK 5, EEE 
„440 PRINT AT 16,8, PAARE 

145 IF n>-13 THEN PRINT AT n,8;" 
U U} 


150 NEXT n 

358 PRINT_HF 7,175 ZNK_@, 107"; 
AT_8,17; "aS8";AT 9,17, "369" 

160 ’FOR n=20' To &’Ster -1 

162 BEEP .as,n 

















Das Männchen. welches sons: zum 
erstenmal durch den Druck auf Taste 5 
erscheint. ist damit bereits bei Spiel- 
beginn sich.bar 

Viel Spaß bei Ihrem neuen Job in.dieser 
mekwünligen Geräefabrikl!! 








nn man doch Nicht ausstei 
rlust Deiner 19 PUNKTE! 


Hat mich sefr 
zu koennen,bi 
wieder 





ass IE n3ae AND B=9 AND INKEYE=- 
187 „THEN 60 SUB 2320, 
x PRINT RT Nn-4,65 


Ben" Ar neR,B:t’E 





180 PRENT, een 2) 
Tr n+a 2 7, 
298, in Er) REN PRINT AT 8,55" 


‚5 
„as ır’nta AND p=1 THEN a0 To @ 





295_IF n<>5_ AND p=2 MIND INKEYS= 
"SioTHen co 70 Saba 

zıa n=5_AND P=1 AND INKEYS= 
Se HEN Bo sun 2uoe 

220 IF P=ı THEN GO TO 260 
259 FOR n=@ 10 1: ır ZNKErYS= 
THEN 20_SUB 1108: NEXT m 
253 PAUSE 3 

268 NEXT. n 

















LET_p=8 
so To 100 
FOR_z=35 T0 5 sTi 

zes and nt THEN co To 


8 PRINT AT 16 AT 17 
EI te Su Sr 22: 


4115 IF pl=1 AND z=20 THEN Go Su 
5_ 58508 
2216 IF pl=1 AND z-20 THEN co su 


PAUSE 2 
NEXT z 

IF_n>19 THEN LET p=1 
LET pi=o 

RETURN 

LET p=@ 

EOR 2-3 70 25 

BEEP „aa,z 

IF z=13 AND ag<>"s" THEN GO 
roea 





© 
[ 
© 
8 
[>] 











9 BRINTAT 2, 
“AT Buz" 
En 

0 zZF INK 
R4ABO 


BEEP „89,2 
PRINT AT’Z,26; 
AT 2-1,38; 
AT Z-3,385; 
jAT Z-5,255 
LET pi=12 
RETURN 
CLEAR 32233: LORD “Lisı"coD 
E_ 32233,50 

4218 G0'TO ı 










5008 CLEAR 32232 

5@12 FOR 7=32333_ TO 32282 

5028 READ m: POKE z,n 

5858 NEXT z 

5848 DATA 6, as” EEE 33,8,1,17,25, 

9,205,181,9,33,8,6.17,36,&,205,1 

ai, s 139,18,854.8°8,192.89:8.3:3 
1,6,228 „895,161, 9,295.12.8,8:1 

64,684. 58 38024 ‚agi 


7498 PRINT AT_2.15;3s 

7082 IF ages "WM" THEN LET punkte= 
Bunkte+s 
nr in as THEN LET punkte=p 
@8S PRINT AT 0,109;” AT_B,1@; 
"Funkte=. "; FLASH’ 1;puhkte; FIR 


k=D_7D 188: NEXT Kk 
7359 60 SUB ssaog 











7378 LET 
7399 IF b$= " THEN LET 
BUnETESPUNL LEE 


" THEN 60 T 





EoR.h=ga To Ss ster -ı 
BEER .80, 
PRINT AT iS BSH" :AT n+a, 


NEXT_h 

RETURN 

PRINT AT_17,20;"R" 

RANDONIZE 

i=1 Ta 9: LET X=INT {an 
STTEIL NSs" 

FLASR Libsccı) 






[2% 


1,% 
8511 IF INKEYS=STR& x THEN\LET'8 


S=bE (X) 
8516 IF ag="" OR ag="A" THEN LET 
PRINT AT 21,311; INK 15"Dy h 
=8; INK 7; 
" THEN RETURN 














IF INKEYS<CH 
NEXT i 
RETURN 
STOP 
REM figur 
FOR_b=1_TO ıB: 
; RERD_f: 
NEXT b 


READ f%: FOR 
POKE USR Fra 





‚126,259, 159,258, 18 
9,15,60,48,24,08 





“sose parr 5g" ‚60.255.255, 120,265 
„129,255, 126 

regal Data "D",0,192,240,60, 12,18: 

x s8S6 UHTA_"E" ,126,285,128,229,12 
6,60,125,255 


x 3660’ DATA 5N998.142848:7 
Jass)ıd 


x9070 DATH 5,181, 1817 ER 

x 8688. oma H",0,0,0,0,228,228,18 

xgase AR "1",255,126,142,145,16 
154,145 

Siac bare "Ur ,245 2148, 128,228, 18 


8,128, 126,155 
125,191,264,1756,16 





x2i1o DATA’ "R“, 
9,191,126,255 
xsi120 bATA "L",255,0,0,0,129,129, 





229,0 
xgas6 DATA "n",0,0,0,0,0,00,28,25 
x®149 DATA "N",@,242,23,50,80,247 
‚8,255 
















Punkte 















9159 "0", 5 „213, Ss 
Keıs ‚gar 0",255,1,113,137,9,37 
S188 DATA "P" ,137,139,1,1,1,1,19 
Karza para »1,17,57,17,1,57,2, 


255 
xeise DATA "R" ,144,98,.57,125,8,0,0 








K&s@@ PRINT AT 16,5; " Sera 
7,8; FLASH 20% %  "; FLRSh DR 
T’38,s5;" on "Ar 18,55“ = 


sr 80,5; "Acerah" 


„2318 FOR K=@ TO 800: NEXT k: CLS 


9315 PRINT FLHSH 1;"faisch einge 
stiegen mein Lieber!Der Lift erw 
ischte BACHInE 


FLASH 8 





IRT RE 
Eu SAT n-2,5 
Eupen biat n-ä, 








;"ACD" AT n,8;" 

491 RANDONIZE USA 92293 

402 FOR k=2 TO 508: NEXT k: GLS 
41@ PRINT INK E; FLASH 1;"Nier 

ann npn doch nicht aussteigen! 

I"; FLASH & 

420 60 10 9950 

508 FOR k=-® TO 188: NEXT K 

519 CLS 

529 PRINT INK A; FLASH 2; "Du 


aettest fFrüeher Aussteigen sol 










oaeuIr-Teone-re Ouur- 


en,jetzt nusst Du mit eine dic 

en’Bevie ins Nuspıital. ANEE, 

5380 GO TO 9959 

500 

BEE 

58 AAN! > 

Fr IF a$= PRINT AT 7,3 
xabes IF a8 LET bEt13=" 
ssır ır PRINT RT 7,1 
xP512 ır LET bstsı="B 














THEN PRINT Amözst 
THEN LET LEI = 
THEN PRINT AT. 8,1 
THEN LET bE 2) =" 
THEN PRINT AT 8,1 











THEN LET 64i5 
THEN PRINT AT: 
THEN LET b$18 
THEN PRINT AT = 
THEN LET b$43; 
THEN PRINT AT 
THEN LET b#153 
THEN PRINT ATS, 











THEN LET BSH =" 
LET ag="" 
RETURN 
FOR K=1 TO 3@8: NEXT k: OLS 


IF_punkte>52 THEN PRINT“ "DU 
warst schon ganz ur! Jetzt da 
rfst Du die naechsten Weraste ZU 





santensetzen: 

9P19 27 Bunkta<«100 THEN PRINT “n 
eiter so!" 

9938 IF punkte>=108 ANK punktet= 
208 THEN PRINT “Hervorragendlsi” 
93939 FOR_k=1 TO 208: NEXT k 

29428 60 TO & 

9959 PRINT "Totalverlust Deiner 

";punkte;“ PUNKTE!" 


Punktes 


9855 INPUT "Willst Du es nochmat 
versuchen? TIPPE J oder N ain:" 


i® 
5380 IF e$="j" OR ef=")" THEN 20 


TO 7 

997@ PRINT AT 19,8; INK 3;“"Hat m 
ich gefreut,mit Dir spielenzu ko 
ennen,bis demnaechst mal uwiede 


9971 stop 
3338 SAUE 
3392 SHAUE 


LINE 4008 
CODE =2233,580 














Quadrato 
für den TRS 80 


"Quadrato” ist ein neues Denkspiel, bzi dem es darum geht. aı 
großsen Spielplan Quadrate zu legen. 5 
Der Computer ‘st hierbei lediglich | teiligt wäre. 
Verwalter und zeigt durch Blinken der | Wir hatten zwar eine Routine in 
vie: Esksteine an, wenn ein Spielerein | Maschinensprache geschrieben, die es 
Qundrat gebildet hat dem Computer zrmöglichen sollte, a 
Es werden auf dem 49 Felder großem | Gegenspieler zu fungieren, dach war 
Spielfeld jeweils 48 "Stzine” pro Spiel | selbst cie schnellste Version noch zu 
gelegt. da sonst der 1. Spiele benich- | langsam {15 min. für den ersten Zug, 








1m 
209 
30 
49 
son 
609 
709 


REM none 
BEN an "BUADRATO” 
REM on Hm un 
REN en a 
EM en Jürg 
FEM 0 Keplerstrasse 5 
REM «x  D-5206 Neunkirchen-Sesl.1 
@00 Rene leleton: 02247 - 4147 
909 FEM wunnsnsuussenssnnnnneenanereereneeee 
1090 CLEAR 1000 

1190 DEFINT A-Y 

1290 DEFSIR 7 

1300 DIN @t10or 

1400 CLS 

1500 FOR A=1 TO 10 

1600 PRINT 5 468, STRINGS(2S, 3215 

1/00 FÜR Bei TO 20 

1000 NEXT B 

1900 PRINT 6.468, "0 U A L 
2000 FOR B=1 TO 20 

2100 NEIT B, A 

2200 FÜR A=1 TO 500 

2300 NAT A 

2400 PRINT 8 A70, tvonts 
2500 FÜR A=1 TO 500 

2600 NEXT A 





am 


Raram 





5 854, 'Telelon: 02247/4147"; 
GOSUB 11500 

SP=o 

FÜR B=1 TO 20 

BOSUB 4900 

NEIT 8 


FOR B=1 TO 2C 

BOSUB 4600. 

NEITB 

SRINT 5 9b, STRINGEISL, 3235 

IF SP=0 THEN 3100 ELSE 4400 

ASPEE< (14337) 

IF A=2 THEN PRINT 5 966, -STRINGS (51, 327 
IF A=4 DICH GP=1 

RETURN 

FOR As1 TO 500 

B=FND(128) -1 

AND HEIL 

IF POINTB, CITIEN REGETEB, CD): NEXT 
SEIG, 6) 

NEXT A 

cs 

SOSUR 5309. 

saTo zac0 

FOR A=0 10 32 S’Er 5 

PRINT 5 A, ZU): 

PRINT 5 At6A, 21215 

PRINT $ Art29, 205 

PRINT 5 A+192, 21235 

PRINT 5 A+256, 212 
PRINT 5 A+320, 11235 























I 5 772,'Jörg Tegeder ‚Kepierstrasse 5,D-5206 Neunkirchen-Seel. 1" 


PRINT 8 979, "cA> für Anleitung... <R> für Saielbeginn I" 


SOSUB 13100: CLS: SOTO 1400 


: CLS: GOSUB 500: KUIU 7400 


einem 7 x7 Felder 


dienächsten entsprechendlangsamer). 
In dem Programm-Listing müssen 
yeim Eintippen nattrich alle Para- 
graphzeichen in "Klammerafleu” (C) 
vertauscht werden. 

















6009 PRINT 5 A284, ZiSI; 
5199 PRINT 5 Ardas, ZZ); 
6209 PRINT 5 A+Si2, ZS}; 
6300 PRINT 8 Ar&7&, Zi2: 
16409 PRINT © AAO, 213: 
8509 PRINT 5 A704, Zi2:; 
6609 PRINT 8 #788, Zi3)5 
6/00 PRINI u ArEsz, ZU2i; 
4009 PRINT $ ArC9&, 2iai; 
8900 NEXT & 


7009 FÜR A=0 TO a8 


eo NER A 

7300. RETURN 

7400 PRINF 5 104, "Spieler 1 fängt an."; e 
7500 PRINT & 164, "Er benutzt diese Steine: " Zi5)3 

7800 FOR Arı TO 1090 

7709 NEXT A 

7800 PRINT 5 104, STRINGE(2O, 3235 

7900 PRINT 5 164, STRINGS(27, 32): 








8000 PRINT 8 105, "Spieler 2 benutzt"; 

8100 PRINT & 169, "diese Steine:"}li6)} 

8200 FOR A=1 TD 1090 

8300 NEXT N 

841m) PRINT 8 105, STRINSS120, 32) 

8500 PRINT 5.169, STRINSSLE, 2235 

8600 FÜR Ny=1 TO 24 

700 PRINT 9 106, "Zug Ninmer " STRINGSLS-LEHISTRFEN Fri, 
889 PRINT $ 172, "Gpielar 1 ?"+ 

A900 Z=INKEYS 

7000 BDSUB 20700 

100 PRINT 5 AtDE), 2195 

9200 PL=L 

9300. RDSUB 23400 

7400 PRINT & 184, STRIN3S(3, 3235 

9500 PRINT 8 172, "Spieler 2 ?"; 

TEINKEYF 

9700 BOSUB 20700 

7800 PRINT & AtDF), Ttaz 

7900 Pl 
10C09 GESUB 23400 

10100 PRINT 9 184, SIRINGFIS, SZ) 
10209 NEXT NL 

10300 PRINT 5 106, SIRING$CLA, 3215 
10400 PRINT 5 172, STRING$CLS, 3215 
10500 FOR A=1 TO 1000 

10600 NEXT A 

10700 PRINT & 106, "Neues Spisl,"; 
10600 PRINT 5 176, "neues Glück 2" 


























11600 24) =CHR${1AL)+STRINGS(S, 140)4CHRS(142) 
11500 25) =CHR$ 185} 4CHRE 1179) +CHRS 1197) 

12000 Z(6)=STRINBSCS, 171) 

12100 SC1(1)=0 

12200 SC(2)=0 

12300 B=60 

12400 
12500 FOR A-0 TO 48 
17400. B=B+5 

12700 AtRI=B 





1ZW00 NEXT A 
13000 RETURN 
13100 Z(7)="Bei Ouadrato geh: co darum, auf den öpieliels 


.—,ee,0.0 0, 00,000 0 0 90 0 0 0 0 TH 8 oo 








Scksteine. " 





7100 PRINT 5 A(f), STRINGSES-LEN(STRS (A) )+1,"0")+RIEHTS (STRE {A} 


10500 Z=INKEY® 

11COO IF Z<p"d" AND 2C>"N® THEN 10900. 

11100 IF Z="g" THEN RUN 

11200 nı8 

11200 PRINT 6 534,"T SCHUüS !"; 

11400. END 

11200 Z(LSCHRS (16) HSIRINGELS, 140)4CHREL17Z) 

11600 2 (2) -CHR$1147) tOTRINDL(S, SZI4CHRS (170) & 
11700 2 (3) =CHR$!157)4STRINGE(T, TAMACHRSL1TE) 


LERISTRSN-1 





TON TRISHTFISTREANN), LENISTRYENUD ITIDE 


12800 IF(B-C}/3S=INTIB-CI/SSI THEN B-B+129: B=8-59: C-C+H2E 


Tuadrete 





bilden wal gleicheeitig zu 


verhindern, dafl der Gegenspieler dies schafft. Um ein Diarre: zu bilden, legt man nır die vie 

















13709 B=0 
13309 FOR A=62 TO 0 STEP -ı 

13409 BeBel 

13909 PRINT 5 A+760, LEFTS{Z(T), Bi; 
13609 FOR C=1 TO A0 

13709 NEXT C, A 

13809 FOR A=2 TO LENZ} 

13909 PRINT 5 760, MIDSLZE7), A, 5515 
13009 FOR B-1 10 40° 


14409 PRINT ® 103, "Einige Beispiele: ”i 
11509 605JB 20400 - 

14609 PRINT 5 Az), 2159; 

14709 605JB 20900 

14805 PRINT 5 AtZ7), Zi51} 

14909 S0SJB 20400 

15005 PRINT 5 A(453, Zi514 

15109 BOSUB 20100 

15209 PRINT 5 At2i), Zi5; 

15300 PRINT 6 556, "Ouadrat"s 

15400 GOSUB 20100 

15509 FOR Arı TO 10 

15600 FRINT 5 AS), Zi5)4 

15700 PRINT $ A(27), Zi5; 
15300 PRINT 8 At49), 215 
13903 PRINI = Atzı), ZiSi 
16009 PRINT 5 556, "Que al”; 
16109 FOR R=1 TO 100 








1630) PRINT 8 Al, Ziel: 
16499 PRINT 9 Rad), £i6 
16509 PRINT 5 Acas), Ziuls 
16609 PRINT 5 Ali), Ziäls 

16700 PRINT & 556, STRINGE(7, 3215 
FOR B=1 TO 100 

18900 NEXT E, R 

17000 FRINT 6 ACS) ,"oosn; 

17100 PRINT 8 A{27),"027": 

17200 FRINT 5 (45) ,"045° 
17300 PRINT 5 Atz1), "021 
17400 E0SUB 20400 

17509 PRINT & Acıd, 20515 

1ö80v Eusub 2uduv 

17700 FRINT 8 At), Z(5)5 

17800 cosun 2UAUO 

17900 FRINT 8 Ac1O), Zim0 

18000 EOSUB 20400 

18100 FRINT 5 A159), Z(55 

18200 FRINT 5 556, "Kein Quadrat"i 
18500 GOSUB 20400 
18400 FOR n-1 70 10 
18500 FRINT $ AtD), Zum; 
18609 FRINT 5 At#), 215) 
18700 FRINT $ AU1B), Z{59; = 
18800 PRINT 8 Acımı, Zi9)3 

12900 PRINT 5 556, "Hein Quadrat"ı 
19000 FOR B=1 TO 106 

19109 NEXT B 

19200 PRINT 5 At1), Zi533 

19309 FRINT S Aca), Zus; 

15800 PRINT 6 Atıa), 265 

19500 PRINT 8 Ati3}, Ziö}; 

19600 PRINT & 556, STRINE${LZ, 32 
19700 Für #=ı 10 100 

19809 NEXT D, A 

19700 PRINT 8 Art), "001"; 

20000 PRINT S Aa), "004"5 

20100 PRINT 5 At13},"018"; 

20200 PRINT = Atl9),"015"5 

20500 PRINT 5 103, STRINGEET, 32); 
20400 FÜR A=1 10 50% 

20500 NEXT A 
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IF ASCIZY=3 THEN PRINT 5 184," © 
IF ASC(ZI<48 OR ASC(23237 THEN 
PRINT 5 184, 25 

BE-vaLızı 

Z=INKEYR 

IF Zee" THEN 21306 

IF Z=CHRE(LSITHEN 22700 

dk ASCCEI=3 THEN FRINT 5 184," "i: GOTG 20706 

IF ASC(ZI<AB OR ASC(2)>07 THEN Zu400 

PRINT 8 185, 

DE-DEX10+VAL 17) a 

Z=INKEYS 

Ir 2="" IHEN 22106 

IF ZCHRFMTHEN FRINT 5 189," "52 DE=(DE-(DE-INTELE/1O10)/10: SOTO Zion 
IF 7SCHRECISITHEN 22700 

IF ASC(ZIKAB OR AECLZI2S7 THEN 22100 
DE-DE+1O+VAL ZI 

PRINT 3 184, STRINGS(S-LEN(SIRSLDEIT+L, "0" HRIGHTS(STRSIDEN, LENISTRS(BEII-D)S 
AF DECO OR DEMG THEN A=1=1s DOT 23200 





: BES: 
706 


Burg 20700 





1 


(DE)+15360) 7128 THEN A =1=i: BOTO 23200 





IFA THEN PRINT 9 251, "Das war wohl nichts : iz ruk Arl iu 1000: NEXT As PRINT 5 231, STRI 
NG#t21, 32254 PRINT 5 184, STRINGELS, 3234: Z=INKEYI: 3070 20700 
23300 RETURN 
23400 B=INT{DE/?) 
25500 C=DE-Br? 
23600 D-PEEKUISSGLHAGDEN 
73700 E=15361 
253800 FOR Neil 10 & 
23%00 IF C-Nco THER 25005 
1000 IF PEEKIEHALC-248#73 453 THEN 25000 
24100 IT D.NSE TEN 23009 
34700 IF PEEKIEM DENT SUB THER 25000 
24309 IF PEEKIEHLIG-N+LE-R >D TFEN 25000 
24400 SCAPLISSC (PL: HI 
zas0n EI /-N 
24600 DULDI=DE-Ne? 
24700 PULSI=DE-N 
24800 FUt4)=DE 
24990 GOSUE 33300 
25090 IF CAN>& THEN 25100 
20190 IF PEEKIEHAKDEHN IC HD THEN 26100 
25290 IF BeNs THEN 26100 
25900 IF PEEK(EHAUIBEN) 74031099 THEN 8100 
2540 IF PEEKIEHCHNFBENDSTIICHE THE Zoico 
2399 SULFLISSEIRLIH 
25630 PUtiı-DE 
2570 PINTI=NFEN 
29890 PULS)=DEHNK7 
25790 PULA)=DEINK? 
26030 GOSUE S3500 
26190 IF UAND& TEN 27209 = 
26290 IF PEEK{EHAWEHN ICH THEY 77700 
26390 IF B-N<O THEN 27209 
26490 IF PEEKIEAALIB-N}@7+CHICD IHEN 27200 
26599 IF PEEKIEHCIB-N)R/HNHUI SL IHEN 27200 
Er 
26790 
268% 
2690 
27090 PUtA)-DE 
27190 SOSUE 33300 
27290 IF C-N<O THEN 28300 
27390 IF PEEKIESALDE-N) JOD THEN 28500 
2/90 IF BAN>e THEN 28300 
2750 IF PEEKEHADEHNETI IST THER 28300 
77690 IF PEEWLEHR(DEANET-WDIC5B THEN 2Ei 
27790 SEtPLI=SE (Pi 
27899 PULLI=DE-N 


. .. . .:.2 e-—.:.”e .. ....e.n„ .”"Co-a-.—...e.—— 
.. . .—. ..2...—..e ."an ..".:.."..:.Sna. .e 




















27700 
28206 
28100 
20200 
ZU300 
28400 
28506 
El 
28700 
283890 
287900 
29906 
27100 
29206 
273500 
27300 
29506 
2700 
29706 
27200 
29790 
30900 
0100 
20200 
30300 
30900 
30500 
30400 
20700 
30300 
30700 
51900 
31100 
31200 
31300 
31400 
Sı90U 
31606 
31700 
31300 
31700 
32000 
32100 
32200 
32300 
32400 
32500 
32400 
32700 
32300 
Sr 
33000 
33100 











PLZ) =DEANE? 

PUT) =DEHNET-N 

Puta)=DE ’ 
BISLE 3300 

Ir Boa Then us 

IF FEEKIEHAIDE-2UN®?} 350 THEN 29500 
IF E-MKO THEN 29520 

IH HEER(EHAIDE-NFZ-NI CD THEN 29500 
Ir CıN»& THEN 27900 
IF PEEKFHADE-NETEN) 
SCHPLISSCEFLIH 
PÜLD=DE-IHEN 
Putzy=DeNnai-N 
PÜL2) =DE-NATeH - 
Puca)=DE 

SOSLB 33309 

IF B+Z4NDG "HEN 30706 

1F FEEK(EHALDERZINK/ ID THEN 20700 
IF C-NtO TIIEN 20700 

1F FEEK(EHAIDE-NANA7IICSN THEM 20700 
IF C+ND6 THEN 30700 
17 FEEK(EHACDEHN+N®7) 
SSAFLISSCHFLI+L 

Pat -DEe2UN.7 
PANZI=DEHHRT 

PAS =DE-NANET 
FJW=DE 

BISLB 33300 

TE CHNe2>6 TEN 31900 
FEEK(EHACDERNSZI) CD THEN 31590 
E-N£O THEN 31900 

FEEK (EHACDEAN-N®Z))6D THEN 21930 
IF E+NY& THEN 31900 

17 FEEK(EHADENANETIICDO THEN Z1900 
SCHFLISSCHPLI 

PULh)=DEHNEZ 

ULLI SÜEHNENET 

PULZI DEIN Na7 

PAtA}=JE 

GORUB 33200 

IF C-N*2<0 IHEN 33100 

IF PEEKEHADE-NEZIICU IHEN 35100 
IF B-NCO THEN 32: 
IF PEEK(EHALDE-N-N#7) 140 THEN 35100 

IF B+N)& THEN 33100 

1E PEEK(EHALDE-N+N®73)C>D THEN 33100 

SELLI-SCEPLIHL 

PutH)=JE-Ne2 

PILZ) =DE-NENA? 

PUCZ} =DE-N-NR7 

FULkI=DE 

GOSUD 33300 

NEXT N 

RETURN 

PRINT 5 E69, "Spieler 1 Spieler 2; 

FRINI 8 %S6, SIRINGSLS-LENISTREISENE)) EL, "ON HRIEHTEISTREISEHLN), LEMSTRESELNDE-EE 
PRINT 5 952, ETRINGE(S LENIGTRFISCKZII H#1,NC"IHMRICHTSISTREIECKEN), LENISTRELSELENDI-135 
FOR R=1 10 5 

FOR P=t TO LoC 

NEXT pP 

FOR 0-1 10 4 

PRINT 6 AtPUIE)), ETRINBELZ, 2005 

NEXT DO 

FOR P=1 10 Lac 

NEXT pP 

FOR 0-1 10 4 

PRINT 5 RLPWICH, Ztasplsn 

NEXT O, A 

RETURN 











TREU SeS00 








207 
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198 
118 
128 
130 
148 
158 





Das Steuern geschicht mit den Tasten | Schwierigkeitsgrad (ven 1 - 9) mehr | kann das Spiel mit "I" abgebrochen 
"M” und "N”, Dabei erscheinen die | oder weniger. werden. Die Nimen sollten möglichst 
Symbo:e (Schrägstriche) immer an der | DasSpiel kann von maximal9Spielerı | nurö Buchstaben langsein,dasiesonst 
Stelle, an cersich der Ball befindet. Das | gespielt werden. abgeschnitten werden. 


Ziel (Kreis) bewegt sich je nach | Ist die Lage scheinbar aussichtslos, | Viel Spaß und guten Skip!! 


10 PO<EIEB79, 25 

2@ PRINT" OOMON";TAB(4)"SSKIPPING BALLE" 
2a PRINT" Cr 19B% Fr: 

48 PRINT"T M. QUINKE" 

S@ PRINT"M R.SCHNITZ" 

E8 PRINT" n 

79 PRINT" k St 

8@ PRINT" SOFT" 

90 PRINT" SYSTAX SOTFWARE" 








Skipping Ball 


für den VC-20 


Das Spiel ”Skipping Ball” für den VC-20 läuft in der Grundversion. Ziel des Spieles ist 
es, einen Ball so zu lenken, daß er einen Kreis trifft. 





FOR Z2=1T03990: NEMTZZ 

PX=1:DIMNXC9) ‚PN$C9) ‚PSACH) ,PNACIY 

PRINT" WSSKIPPING BALLE" 

PRINT"MMTREFFE DEN PUNKT LO1" 

PRINT"SKIPPEN MIT NE UND am" 

PRINT" main. 0 Se ie Se Te ma 0 te ea Tone aaa 
PRINT"WSPIELERANZAHL (1-97 "; :GOSUB972:PiY=X 

GOSURLAIQ R 

PRINT PRINT PRINT" 8 DRUECKE FÜ TURN = 
FRASCICHRSKL3ITHENIO % 

PL=PL+1IFPL>PYTHENPL=1 

Bee" I 1 ÜREDEKDEDKDEDONTEKONTETEN" 
TS=TL:TA=TS46029: PC=1:PK=7933 'D=1 

POKE36879,93: PRINT" BE SPIELER"AL"-"LEFTFPNECPLI, 18); 
FORT =1T020: PRINT’ NEM BRRBRRABR "; 

NEXT:PRINT"4 SCHUIERI! (29-NA(PLII/Z'M'LEFTECBE3D; 
NTSRNDC124456+7688) : IFC7922CTIANDCTS7944) THEN258 









M 
FORLI=LTONN: IFPEEK(PEI=SITHENPOKEPE,32 
PE=PK:GETIE:IFI$S>""THEN428 
IFPEEKSPK+DILISETHENITE 
PK=PK+D: POKEPK, 81 NEXT :POKET,32 T=T+TDIKD 
IFPEEKCTICDI2THENTD=-TL: T=T+TDRD 
POKET,87:6010318 
IFTIITXTHENPS=2 : 30T0568 
IFPEEKX(PK+D)=?OT-HENPK=PK+D :D=D-SGNCT)#23: G0T0318 
IFPEEK(PK+D>=77THENPK =PK+D::DSSGNCDJAC CABSCHTANDI IK22+LABSCDIAKD22)722) :G0T03 





D=-D: IFPEEK(PK-D)=87 THENSO 
soTogia 

IF IE="N"THENGEB 

IF Is="M"THENASO 

IF Is=" | "THENPS=@: 6070560 
coToaaa 

=D: PC=PC=1 :POKEPK, 78 
D=D-S3NtD)#23:0070310 


IFFEEK(PK+DI=78THENPK=PK+I 
1:?OKEPK. 77 











5a: [FO=-1THEND=-22 REM le 

512 [FO=22THEND=1 

529 IFO=ITFEND=22 

538 IFO=-22THEND=-1 

542 6070318 

552 PS=1908-12#CPC-13-INTCLTI-TSI/EI :IFPSCATHENPS=L 
368 PSACPLI=PS 

573 PMACFLI=INTCCFMACFLIKCPX-1)+PSI/PR) 

588 POKE36879, 25: PRINT" IE r— 7" 
599 PRINT" BIPLAYER IDIF IPUN. IDUR. I": 
6 PRINT" a ——t—t—t" 5 
513 PRINT"SIE ! | ' a 
628 FORI=1TOPY 

639 M=(1-1)422: IFIDSTHENN=!1-5)422 
648 IFIDSTHENO=d 

659 PRINT" AIW"PNECTICQO-NZSIII/Z" I" SSTRECPSACLIIFTABLLEHGN " I" 
1m)" al"; 

568 NEXT 

578 PRINT'SIM A I al"; 

BA PRINT TB ge 
630 PRINTSPC(3)" SSPIEL NJMMER"PX 
708 PRINT"#" ; :FORKK=1TOS+PL:PRINT"K" ; :NEXT : PRINT" BA" : FORKK=PLTOPY PRINT" "5 :NEX 
1 











3STRECPMACTIDETABKZ 





?18 1FPL=PYTHENGOSUB?39 : FORI=1TOFY :PSACLI=B: NEXT: PX=PX+1 :00TOLSO 
728 PRINT"MM'SPCC3)' MDRUSCKE RETURN" 'G0T0:9@ 

738 PRINT"MM"SPC(4)' SAENDERUNG DER 

748 PRINT"K BSCHUTRIGKEITCI/NIE 
75a IFA$="N"THENRETURN 
?60 PRINT" TIMMMSPTELERNUMIER? "3 :GOSUB973: 4X=X : IFKPPYTHEN?ER 

77a AS=PNECHK) :AA=10 

780 IFMIDSCA$,AR, 19=" "ANYDAA>LTHENRA=AR-1 GOTO7SB 

730 A$=LEFTECAE,AR+"S ":PRINT' MW"R$:PRINT"NOMENTANER SCHUIERIG- KEITSGRAD 
EKZO-NACKKII/Z x 

308 PRINT" PUNKTDURCHS. PMACRKI 

810 PRINT"WLETZTE PUNKTZAHL: "PSACKRD 

320 PRINT"MINZUER. SCHWIERIGKEITS- GRAD 11-9)? "5 :GOSUBSTO:NACKMI=2D-K2 

339 PRINT: PRINT"MWEITERE"CHRFC13) 5 "RENDERUNGEN CI/NI? "5 :GO3UBILA: IFAF=" J"THENTG 

a 

840 RETURN 

358 FORI=1TN12A:GFTAS:TFASCH""THENBIG 

86R NEAT:PRINT"A N"; 

378 FORI=1TD120:GETAS:IFASC>""THENEIO 

888 NEAT :PRINT"E I"; :GOTI8S@ 

894 IFVAL<CAEI=DTHENGSO 

9an Pi: INT"W"AS:S=VALCAS) RETURN 

316 FORI=1T012@: GETRE: IFASCH""THENISO 








3:B0SUB91@ 








928 NEXT :PRINT"a U"; 
330 FORI=1T0120:GETAS: IFA$C>""THENISO 
2348 NEXT:PRINT"® WM"; :GOT09:8 





TO1AR: GETRE: IFASCH""THEN151 

RINT"I M"; 

‚10199 'GETA£:IFASC>""THEN1918 

1909 NEXT:FRINT"E 11"; :G0T0976 

1819 IFASC"L"IRASI"S"THENITO 

1929 PRIKT"W"3$:X=VPLCAF) RETURN 

1838 PRINT" FORK=ITOPY:PRINT"NAME VON SPIELER"K” "; 

1948 INFLTPNSCK) 

1850 PRINT :PRINT"SCHWIERIGKEITSGRAD SPIELER"K'C:-9)7 "5 :5OSUBITA’NACKIS2B-20% 
059 GOSLBIAGD 

1878 PRIKT:NEXT:RETURN 
1998 PHE<CKI=PHECK)+" "EPHSCKI=LEFTECPNEIK),8)+" ABMEN" RETURN 




















Einsiedler 
für den VC-20 


Das bekannte Einsiedlerspiel läuft auf | Verfügung: Tastatur selbst versuchen. 

der Grundversion, im anderen Fall | I. Man kanr. sich eine Lösung aus- . Man kana sich eine eigene Belegung 
s.nd die Bilcschirm-Pokes zu ändern. | geben lassen. bauen und davor. ausgehend spielen, 

Es stehen drei Moglichkeiter zur | 2. Man kann es mit Joysick oda 














58 PRINTTMUDAS EINSIEDLERSPIEL" :PRINT"WBZUN SETZEH FAHREN" 
55 PRIN"IEIE MIT DEN CURSOR-" PRINT"MSTEUERTASTEN UNTEI 
68 PRINT" DEN ZU SETZENDEN" PRINT" STEIN, DRUECKEN  °" 
LIND FAHRFN DANN ":PRINT"WÜNTER DIE® "PRINT WZIELPISITION UND" 


IDREUCKEN ERNEUT 7 7" 

RBNREHLE EINE UER":PRIKT"B MOEGLICHKEITEN" 

Mi ' LOESUNG" :PRINTYNB : VOLLES FELD":PRINT"WB : EIGENE EINOABE" 

98 GETAS:F=VALCA$) | TFACIORADSTHENIG 

35 ONAGOTC108, (88,308 

30€ PRINT "DAHER 

FAR PRINT" © 0 0" :FRINTOIRDK 

18 PRINT" 

12€ PRINT" 

{3 PRIHT" SPRIT" 

»48 PRINT "BWA" | PR NT" IBAAHOAIOO HB aka" 

:58 Ka7ase :POKEY.30: POKEX+38728, 6: Z3=32 

{SE IFA1THENZBB 

I6E GETAR:IRAS@"KNTHENL2GO 

178 G9SUB5998 : GOSUBIHBB:GOTOLEB 

20€ RZADXS:T. 

218 AF-HILECHE. 1,1): IFAS="R"THENIGO 

215 FIRJ/=1T0580 NEXT 

228 GISUBIAGB: [=1+1: IFI<=LENCKSITHENZIG 

238 G9TO2zB 

30€ PRINT TDODEUMISEBEN SIE /0’" PRINT"MDDER “e” EIN" 

31E FOR!=1T04988 :NEXT: PRINT " TINIBER ANANAS 

32€ FORI=1102: FORJ=1103:PRINTTABCE+J#2) "MM" ; 

39€ BETA IIFASSD"O"ANDASCH"@"THENSS2 

348 PRINTES; : IFAS="@"THENZA=?A-1 

35€ NEXT :FRINT:PRINT"EBANENIK" NEXT 

36€ FÜR.=1TUS:FURJ=1T07 :PRINTTRBC2+ #2) " 

378 GETASTFARCH"E"AHDAFCH"OTIIEND?B 

378 IFAs="@"THENZA=ZA+ I 

388 PRINTFS; :NEXT: PRINT :PRINT"UBMWRHDER" | NEXT 

39€ FOR-=1102:FORJ=1T03:PRINTTHELG+JRZ)" 

40E BETAS:TFAECD' @"ANDASCD"C "THENAGa 

4aE TFAS="@"THENZASZAHL 

416 PRINTEBS NEXT: PRINT SPRINT" 

1000 IFAS<>" "ANDBL=BTHENIGTE 

:019 IFUCIRTHENI48 

1020 IFPEEKCK-22)CDB1THENRETURN 

:020 YeK-22 :POKEY, 42 RETURN 

1048 IFPEEKCK- 22) CDS7ORCABS (V-Y+22)C>SANDABSCY-N +22 CBO)THENPOKEY, 81 :Y=@: RETURN 

1028 IFPEEKCCY-X+22) 7243-22) CB1THENPOKEY ‚81 :Y=B:RETURN 

1BEB OKEX-22, 81 :POKE:W-x422)724%-22,87 :POKEU 87 :YeB! 2=2+1: RETURN 
IFeN="TNOROBIANIPEERCH-442=32THENPOKER 32: WeX-ad 

TE (AS="M"ORUNDANNPFFKCK+449=32THENFOKENX. 32: Yelrdd- 

TE (AS="M"ORLT DANDFEEKCK-2)=32T4ENPCKEX.: 32:%=%-2 

IF (AI="M"ORREIANIPEEKCX+2)=SZTIENPORER ; 32 :K=k+2 

SOKER 90: POKENABR72B,0 

RETURI 


































PRINT" IN" 























"NEXT:GOTO148 













I AETI 0 TRRI AMI Kan IT: 7 nn Mi 
X "EMI WBI MM TU IB > MI PDXO :TI SB" 

MAMI 1 Sl 30 ST BE HEN 77 RI N ABI INNE "TI" 

I MBDO > 7 200 Mg TI MED m TI a" 

4, 127 :RE=-C(PEEK (37 152) ANDIZ3I=®) :POKE37 154, 255: Rl=-CPFEKCA7151HAKT 











a LI=-<<PEEK<371S1HANDI1SI=@) :UN=- 
9359 RETURN 


(PEEKCSFLS1IANDEI=E) :IB=-CCPEEKC3FISLIANDAD 








DATA BECKER's 
MMODORE BUCHE 


Da’aul haben Sie gewartet: Endlich 
in Such, das Ihnen ausführlich 
und verständlich die Arbeit mit der 
Flopay YC-Ina1 erkları LAS 
GROSSE FLOPPY BUCH ist ran. 
länger Fortgeschnittene und Pro's 
Oieiohermaden inlaressart. Sein In- 
hat racht von der Programmspei 
Cherurg bs zum DOG-Zugri von 
‚dar sequentiellen Catespelche- 
furg bie zum Direktzgrin, von car 
tachnisehen Beschreisung bis zum 
Ausführlich dokumentierten DOS 


Wer besser und leichter in BASIC 
Dreremm rc nSchta dor 
Bradcht deses noua Such 

SE FÜR PROFIS zeig, wemanr 
folgrasch Annencunesprsälme in 
BANIE Ion Und verät Erlesge- 
Arimrisap ir Progremmlarprafi 
Vom Pragrammentwer über Meni- 
sieuorung, Mapkenau[bası Para 
ineiersierung Datonzug lt und 
ei 2 Druckausgabe Di Nin zur Dort 
für Profis | mentatlor’wird anschaulich mit 


Beispielen dargesat, wie quta 














Nisting, von dan Systeribelehlen RASIC-Pmgrammierung vor Rich 
bis zur delailiertan Beschreibung geht. fünf kompketi beschriebeng, 
der Frogremıre der Test’Demodier Inetferige Arwwendungapro. 

kette, Exakt beschrietane Boispiel- Anwendungserogrammierung gramrıe far. den C-Be lustrieren 


und Hilfsprogramme ergenzen oe- 
ses nnus Superbuch Mit dem 
GROSSEN FLOPPY-BUCH 
meistern Sie auch Ihre Floppy. 


Im BASIC Ben Ira” a6 Winden Kapitel 

für Fortgeschrittene bespieihaft. Mit 64 FÜR PROFIS 
ieımer Sle gute und erfolgreiche 

BASIC-Programnierung 








DAS GROSSE FLOPPY EUCH BAFUR PROFIS 
1083 co 250 Beiter, DM 20 EIN DATA BECKER Buch EI DATA BECKERBUCH Genaue 280 Kalt, DM 49 
Jetzt Ir übernraetaterune erweite Die übererbetete und eraalierte 


ter 3, Autlaga- 64 INTERN orkları 
elailiert Archnektur und 18% 
nische Möglichkeiten 3esC-64. zer- 
legt mit alnem zusfuhrlich doku, 
mantiarten RDM-Lieiing Betrlab: 
System und BASIC-Interpreter 
bringt mehr über Funktion und 


2 Auflage von 64 TIPS 8 TRICKS 
ontnan eine umtengrsicne Sarmm 
una von POKE's undancora1 nikz- 
Iichon Routinen, Muilttasking m 
em 6-64, hochaulläsende Grannik 
ug Farbe für Fortgeschrittene, 
mehr uber GP/Meul dem O-Ca mehr 
Programmierung des neuer) 


©-84 und CBM 8000 und gibt Hin“ Ti Nierte Programme von der SOHT- 
COMNODOR= DIN Ag Schalplane eine echt» Fundgrube Iür jeden 























See uanbahinye intern Tips&Tricke ||| Sm en 





Die überarbeitete und orweiterte, 
2 Au age vor VE-ZU 1IPS& IHICKS 
enthält eine detailierte Beschra- 
bung der Progranmaerung var 
Sound und Graphik 3es VO-20 
‚nehr über Speicherbelogung. 
Speichererwaiterung und die 
optimale Nutzung der einzelner, 
Speienermocule, HASIL-ErWeIt: 









































istVC+20 INTERN fürjeden Interes- une zunsgrune nur zen Editor) und vieles andere rmahr 
Nanlıde sich nahe m Tächn. vei2 Anwenser Veamripsarnicksileirsuchte 
Jind Masch nenprogrammierur ‚Fundgrube für jeden VC-20 
'dea VG 20 ausomanderzeiz. Anwender, 
möchte. VE-2D TIPS 8 TRICKS. 2, Auflage 
YE-20 INTENIN 2, aufage 1089 Em Darm Decken such 1389, ca. 23 Salten, DM ar 




















































































































ca 170 Seiten, DM 40, 




















IHR GROSSER PARTNER FÜR KLEINE COMPUTER 


DATA BECKER 


Merowingersir. 30 4000 Düsseldorf - Tel (C211) 310010 - ir Hause AUTO BECKER 


NEU Linser brandaktuelles VC-INFO 3/83 entrält auf 80(!) Seiten detaillierte 
u Inforna:ionen über CCMMODCRE 64. EXECUTIVE und VC-20 
sowie über unser riesiges Angebot an Peripheriegeräten Software, Zubehör 
und Fachliteratur. Sis enalten es gegen DM 3,- in Briefriarsen. 











. . .. .—.—. .e-—.-..rO...-”"...”C.—:..0. 











1870 NA=442:01 
1899 WA=4426 
1999 WA=4446 :DE=1 


1929 HR=4534 GE=38:C0T01930 

1939 IFSSCOARNISSPATHENPF=PF+39 :GOSUR6IA: FORF=BTOSAG:NEXTE RETURN 
1949 IFSSATHENGE=329 UA=4352:G0702358 

195% REN RECHTELEISTE 

1969 FHA=4182THENGE=8 09=69+00+ :COSURE745:C9TII042 

1979 Y=PFEKCHR):YYSPEFKCUR+!) = 

1990 POKEHR, y+12: HR+L,VW+128 

199@ FORF=@TOS:POKESE379,15 POKEISS74. 240: FORK=BTOL@:NERTN:PIKE3EB74,250:FORR=OT 
ce 

2088 NEXT :POKE36974, 290: FORK=QTO18: NEXTA:NEXTF POIESES74,0 

2019 POKEUR, Y:PMKEU+I vw 

2929 UISPEEK(4577) :UI=PEEKC457E) (UZ=PEEK (4573) 

aaa FORWF=BTOZBA:NEXTUF 













za99 ga 

2aSa FReun-d4 

PRSA arEEKCAR) :VY=PEEKCFR+LD 
2978 GETXS: IK$="IITHEN2220 





2039 ZU=INTERNAELN2) 

2090 PCKEFR, Y+123:POKEFR+I ‚yY+128 
2190 GETX#: IFKE="R"THEN2E2B 

7118 FORNSATIIA:NEXTD 

2120 POKEFR, Y:POKEFR+L,Y% 

2130 POKEI6874,220 

2140 POKE4977 ,U+128:FOKE#I73, U1+L2i 
2158 PIKESES74.0 

2168 GETXS: IFXS="N" THEN2229 

2178 POKE4577 „U:FOKE4S78 UL: FOKE4579, J2 
2189 Qen+! !IFA=41THENZ2B0 

2isa corazasa 

2200 IFSS=1ORSS=2THENSE- 
2218 POKE36878, &:PF=PF+GE:G 
2220 POKEFR, W:POKEFR+1,YY:F% 

78 

2290 RYSINTERNDELREI 

2249 IFZUCHRYTHEN229G 

225@ UA=FR:CE=GEW2 

2269 IFGE=ATHENSC-SH2 

2270 IFGE=4S9THENGE=8:50=3 

2280 eCTOLSSE 

2599 PCKE3GE78. 18 POWE36976, 240 FORG=BTO90: NEXTB:POKZ36S75, 220 
2x “ :36876.,208 : FORG=@TORA:NEXTO 

231a PCKE3SE?6, 18A:FORGSATOLS 
2220 KE=A:SCaB:GOTOLSze 

2:0 
2248 
2958 REM _INKE LEISTE 

2969 IFHR=4162THENGE=2:88=°5+20.41 :RDSUB27aR: 
2370 V=PEEK«WA) : WY=PEEKCHRAD 
2380 POKENA,Y+128:POKENAFL Ye 
2298 FORFI=RTOS'POKE2ES7S, 15° 
7018 

2402 NEKTR:POKE36874, 230 FORK=ATOIR:NEXTX:NEXTF:POKE3ES?4,0 
2219 POKEUR,Y!ROKENA+1,YY 

242 USPEEK(4598) :111=PEEKK4933) :UZ=PEERCHTSEI 

2429 FORLF=TIZBRNEMTHF 

2449 n=d 

2458 FR=UA-e4 








KE4I7I,UZHIEB 











1 






-S3+20:00SUB2749:RETURY 
„UL !POKE4579, 2: POKE3EB74, @:PCKEIGE 











:NEXTGPOKES6876,@POKE36873.8 
















ORE25974. 249: FORX=97019: HEXTR: FOKE3GE?4, 280: FÜRR=B 












mpui 





























2548 
2558 
2568 
2572 
2599 
2538 





a PORE35878, 2: PFEPF+GE:GOSURESR :533S$+S0: GOSURZ?44: RETURN 


2690 


a REN ee 


2220 





POKE3S374,228 

POKE4358, 14128: >0KE4553, IL + 128: POKE4SEQ, 124123 
POKES6374,8 

GETRS: IFKSS" N" THEN263R 

PCKE4558, U: POKE4559, 1 :POKEASG3,U2 

QuO+1: IFR=41THENDSIA 

anTazasa 

IFSS=1ORSS=ZTHEISS=3-1 


POKEFR, Y:POKEFR+L „Hy PCH UL:POKEASERJLZ:PCKESSETE. D:POKESSE 


IFGESSORTHENDE=A:C0=5 
20102358 e 
'OKE36876, 220 
FERGSATOSN:NEXTTE 
NEXTG"POKEBESTE, B:POKESGOTN.a 
GOTDLR2e 


IFSSIISTHENKS=L 

PRINT FRONTSEITE" 
IFSSCLATHENPRINT"BRBDRRPPREIN 
IFSSCLASTHENPRINT"R 


Nam OUTUzTEB 
PRINT RRIRBERREEIIRBLTER 
PRINT EORETUNIEREEREANBAmSCN DERSPIELE? RETUST 
REM SERIE, 
PF=PF+2ER :BOSURESA: IFKD=1"HENRETLRN 
POKE3S878, 15 
FORDSBTCINTERHDELIESODSE 
GETRE 
H=INTIRNDELABI=1 
KeINTERNIC DMZS)+L2S 
POKE35874.K 
ONMEOTOCHSA, 2962, 2979, 2008, 2990, 2900, 3018, 3928 
TEXS= VENTHENSBSR 
HEXTD 
somaase 
PRINT "ERBETEN OERI" ;:FORGSATOSA:NEXTG:PRINT" oO" BOTO2E28 
FORGSATNSA :NEXTG:FRINT"E" :UI02U2U 

PRINT ENMBERNOCKEREABBBEABBRRPEAM OENNN ; 'FORG-@TOSB:NENTZ: PRINT" 40" 
PRINT. IODRRSNTEBEBHBER 

INT RRRNRERTUNGEE: 


PRINT POOROKUROIRTCCK FORDeaTSa MENT PRINT" 10" :GOTO2SZe 
PRINT FRROTUNTTTEBABBEBRRBABRBIFS REN" ;:FIRO=BTOIGNEXTO:PRINT"SO":B0T029 


POKE36874, 
AeIHTERHNE 


IFA=SURA=4"HENSaSa 

KOTOSL 190 

PRINT" FRRRURTEROCHRRBRDE {FC {HERTG:SS=5S SOTa3i2a 
SS+51:G0T03108 





TFAC?THENSO=4A UA=4286:Arımn2358 
TFRCISTHENSC=@E 
TFAKSATHENSO=1 


IEleLoR 
IFTSSORTSATHENL=4286. 
IFICSANDIISTHENL=325E 
KASAHOIIFTHENL= 4254 
IFICAARNDIILATHENL- 

















.— 628, ,r LP PP 8 9, 1 0 01 9 0 0 01 8 01 01 0 080 





3269 IFICSARNDIDITHENL-4722 


RPTA TEICFARNNIIASTHENL: 
3288 IFICSBANDIDSSTHEN 
329@ IFIDESTHENL=H514 
Fa02 IFSSORMNDITIHSTHENL=4322 

2a FORU=ATIE 

2328 FORT=4S14T0atEOSTER-44 

3339 TFUSERNDLSITHENBARB 

3948 POKEL, (PEEKCT)+128)::POKEI+L. FEEKCI+1)+128) 
333@ POKE25374,1NTC1/20) 

335@ FORW=ATO2E: NENXTH 

337Q POKEI,CPEEKCI)-128) 'PORET+1. (FE! 
3939 NEXTI 

3398 NEXTU 

340R MA-L 

2419 IFWA=ASLATHENGE=AB 

3428 IFIRS4479THENGE=SA 

3429 TFHR=d42GTHENRE=169 

3448 IFHRSASS2THENGESSEG 

3459 IFNA=433STHENCE-0: 30-7 

3450 TEIA=4D34THENGERBISOHIO 

3478 IFAR=A2SBTHENOE=R:SO=2a 

a43a TFR=42AGTHENCE= 
2439 TFHR=4152THENGE=®: 
3520 coraassa 

3S1@ IFNSS1TIEN2S3Q 
3928 POKES6978,19 
3539 I=INTRNDCLIWLR@IEt 

az20 ORJSZIHENL=4182 

3550 IM JORT=ATHENL=422E 

3350 IFICSANDIIATIENL=4270 

357@ IFJCISANIIDTTHENL=4E14 

3530 IFICHAANDIDLATHENL=4358 

3938 IFICSORNNIDERTHEN =a002 

BEA IFFCTARNDIISSTHEN.=4445 

3618 TFICHBANDISESTHEN.=4458 

9628 TFIYSSTHENL=4534 

3639 IFSSCOQANDTIASTHENL=4402 

2648 FORLMETOG 

3650 FORI=4T34704192ITEP-44 

2660 1FUSSAAMLSITHENS72B 

3670 POKEI ‚ (PEEKCT)+128) :POLEI+L, CPEE<CI+1+128) 
@6aa POKESSE74, INTC72) 

3698 FLRUSBTOZU:NEXTH 
araa POKEI»tPEEKLIY 1 
9718 NEXT 

3728 NEXTU 

3730 WA=L 

3749 TFUR=aSS41HENGE=SR 
3759 TFUR=4A9GTHENEE=eR 
A7EQ TFUASA44RTHENNF=1DR 
3779 IFIA=d4RQTHENGESA0 
3784 IFHR@4SSSTHENGES- 
3799 TFWR=4314THENGESE 
2209 TFUN=4ZFATHEHCE=I 
381A IFLUR=4226THENCE: 
3329 TFHR=AISITHENGE- 
3290 ECTOLa=D 

3549 FERRKSITOSS 
3850 POKES6878,15 
3568 IFMACRKI=ATHENZ218 

3878 IFMACRKI=LTHENANEURASTA:COTISS2R 

3689 IFMACRKI=LTHENDNSURIFER:ROTNSS2A 

3299 POKE36876, M&CRK) :POKE36875.M4{RK) 

asaa MASURa9ED 

S91@ REM 

3928 NEXTRK 

3938 POKE3G°79,Q:POrES6376.A:POKE3SS75,:FETURN 
3249 Me3:IFRK=270RRK=S6 THENN: 
395@ FORE=15TOSSTEP-1 :POKE 
3269 FORD=B71012:NEYTT:POFESEB7E,D:: POREaSS7S ‚9: RETURN 
3379 FORR=RTO1SA'NEATR:RETLRN 

3299 FORR=ATL2SA:NEATR:RETLRN 








11-128) 





















'POXEI+ 1, KPEEXEHNI-12D 







































Chip Out 


für den Dragon 32 





Break-Ont-Spiele wurden schon für viele Computer geschrieben. Homecomputer 
bringt Ihnen in dieser Ausgabe eine neue Version. die mit dem Dragon 32 entwickelt 
wurde, 





Bei Chip Ou: benötigt man zum | ins Spielfeid zurückschleudsrt. Neue Bälle erhält man dusch Drücken 
Spielen einen Joystick Mit diesem | Ziel des Spieles ist cs. möglichst viele | des Knopfes am Joystick. 

steuert man eir.en Schläger, der die 5. | Punkte durch Herausbrechen von 

zur Verlügung stehenden. Bälle jeweils | Mauersiücken zu erreichen. 








10 REN Hrn 
Zu REN CHR wi 

20 REM Heine 

10 30BUE 280 

50 BX=BX+ (JOYSTK (@)£26 AND BX>0)-(JDYSTK(G) >40 AND EX(27) 

&0 IF EXYZLTHENBX=26 

70 IFBX<ITHEN BX=1 

&0 PRINTSA16+RX,E$3:RETURN 

50 SOSUB 50 

100 TPSBE+KD: IH IH>1505 THEN 170 ELSE IF FEEK (TR)=123 THEN POKE BF, 128:POKE T>, 131: BE=TP:GOSUR 
29:50T0 96 

116 GOSUR 56 

126 IF FEEK(TP)=245 THEN ED-BD-2:G01090 

136 IF FEFK (TP)=149 THEN BD=-324 (BD=31)-(BD=II) IF SC-NX>66 THEN PX=SCHGOSUB 45630070 70 ELSE 6 
Tora B 

140 IF FEEK(TP)>14S AND PEEKATPI<230 THEN POKE TP,128:SC=SC+1:PRINTSAR9, 
©} :SOUNG 168, 1:BL=S2-(ABS (ED) =31)+ (ABS (BD)=33) :60T0 98 

150 IF FEEK (TP)=255 THEN BD=(-BD)+2#(BD<-32)-241BD>-32: 1601098 

160 IH HEEK (TP)=253 THEN BD=BD-2: 607090 

176 SOUND 3,10: PCKEBP, 128:BL=BL-1: IF BL=0 THEN 39@ ELSE FRINI 8509, ""3: PRINT USING "#";BL; 

186 PRINT 5416, 5TRING$ (32,123); 

196 GOTC 230 

200 CLSe:ri FAR?AG: PRINTEG,STRINGF (32,255) 53 FIRL-0 TO 352 STEM F24PRINTSI,CHRS (245) HH PRINTEI+SL,C 
HR$(250) 5 2NEKT 1 

210 GOSLB 450 

220 SC=C: BL=5 

250 BP=1217+RND (10): BD=33 

240 FRINTS485, "FUNKTE"; :PRINTSSOZ, "BAELLI :PRINT USING" #"5BL3 

250 DS=CHR$ (128) +3TRINB$ (3, 140) +CHR$ (128) :BX: 10: PRINTS416+BX, B65 

260 GOSUB 56: IF (PEEK!65206) ANDI) >G THEN 260 

779 GOTO 98 

280 CLS:PRINT"same CH IPMIT acc" 

290 PRINT:PRINT"CHIP OUT IST EINE NEUE VERSION" 

308 ‚FRINT"DES BEKANNTEN ”EREAK OUT’. " B 

310. PRINT"DIE STEUERUNG DES SCHLAEGERS" = 

520 FRINT"ERFÜLGI MIT JOYSTICK 0." 

330 FRINT"IHNEN STEHEN 5 BAELLE ZUR“ 

340 PRINT"VERFUEGUNG.DIESE WERDEN AUF" 

356 PRINT"KNOPDRUCK AUSGEWORFEN. " 
36@ FRINT:PRENT"DRUFCKF TASTE ! 
370 IF INKEYS='" THEN 376 

20 60T0 286 

98 CLS 

408 PRINT "SIE ERREICHTEN "SC"FUNK 
410 F=@:PRINI 8444, "NOCH EIN SPIEL ? 
429 Z4=INKEY$: 
A30 IF Z6="N" AND F=6 TIEN PRINTS415,"SIND SIE SICHER": 
448 G0T0208 

450 FORI=65 TO 161 STEP 32:PRINTST,STRINGSLSB, HASHI-1)/2))5 
460 NEXTL:RETURN 

479 END 








"33PRINT USING VaRHarR 
























6970420 ELSE IF Z8='N" IHEN CLSSEND 








DRAGON 


Säulen 


für den Dragon 32 





Das Spiel "Säulen" daß man mit dem Dragon 32 und seinem einfachen, aber 
vielseitigen Basic, interessante, graphisch ansprechende Programme entwickeln kann. 





Mit Hilfe ei 
Pfeiltasten 





>s Cursors, der mit den | wieder erabzudrücken. Gelingt dieses 
wert wird, muß der | einmal nicht, endei des Spie 
teigende Säulen | Eine Punktzahl, entsprechen dem 


Schwierigkeitsgrad 


















54 Homecomputer 


wird ausgegeben. 


Oktober 1983 





REN nenne 
20 REN ##* SAEULEN ** 


30 REN Hrn 
Aa PCLEARB: CLSO: PMODEA, 1: PILSS 

50 _INE125,175)-(108, 108) „PSETzLINF-i7A,9Aı „PSET:LINE-(238, 20) „PSET:LINE- (150,96) ‚PEETELINErALEO 
„103) ‚PSET:LINE- (25, 175) ‚PSET 

€0 >AINT(110, 110) ,5,5:FPODE4, SSCREENE, 1: PCLSO 

70 _INE (66, 65)- (196, 130) ,PSE” ,ExPAINT (62, 67) ,5,5 

&0 "OR I=1 TO 40 

50 Ki=fihD (255) :X2=RND 1259) : Yi-RND191): YZSRNDEIFLI:LINE CK1, 91) -(X2, Y2) PSET:SDUND2SS, 13NEXTI 

108 DRAL"EM72, 81500; 895 LSDSRSDSLSBRIOL1ORSDSLSRSDSBRSULOI1ORTULOBRSTIORSERIRSLSUSRSLSUSRSBRSIDLOU 
1oFroUte" 

11 DRAW" BM85,775C0;LIDIRIULBRIDIRLUILL" 

120 PLAY" T10VS102GFEDDEDGFEDDD" 

130 CLS:PRINTS46, "ANLEITUNG" PRINT 

146 PRINT"MIT FILFE EINES "CURSOR3” * 

456 PRINT"UESSEN SIE VERSUCHEN, DIE" 

160 PRINT"AUFSTEIGENDEN SAEULEN HERUNTER-“ 

170 FRINT"ZUDRLECKEN.DAS SPIEL IST BEEND: 
180 PRINTJENN EINE SAEUE DEN NREREN RAND"; 

190 PRINT"ERREICHT HAT. ® 

200 PRINT"DER "CURSOR® WIRD NIT HILFE DER" 

210 PRINT"PFEILTASTEN GESTEUERT | ' 

220 FRINIHINFUT"SIHNIERIGKEITSGRAD (1 ODER 2)";L 
250 IF L<>t AND L<>2 THENZ2E 

240 PLAY"T2S0V31" 

7a DLSS: 8=0: XG=29: Y6=2 

260 FORI=® TO 31:>0KE (1974-7) ,17S:POKE(1824+1+43 
27@ FOR J=1 TO 16:W(N)=1024+479434J:NEXTI 

280 FORI =L T0 56 : FÜRK =: 102 

290 FORNM=1 TOZ:FORN=1102 

6 AFLc11 THEN Z=I ELSE Zei6 

S10 Fors-1 Toz 

320 WeWiJ) 32 

330 IF PEEK(W)£>115 THEN POKE W,1913WiI=WEIT PIEKIK-32)=175T4EN 420 
340 GOSUBSFO 

350 S=5+5#Z:NEXTO 

360 IF 131 THEN GOSUR 599 

370 NEXTN 

330 IF 1>5 IHNEN GUOSUB 595 

370 NEXTM 

136 IF 198 THEN GOSULS7O 

19 NEXTE,T 

420 FÜR DL=@ TOL@d:NEXT IL 

















A912NEXTI 












430 

40 CREENI , 1:PLAY"OSBAGF=": FCRDL=670166: HEYT:SCREEN, 0: PLAY"OSEFGAB": NEXTF 
450 CLS4: PRINTSI2, IHRE PUNKTZFHL Ss 

468 IFSCSHS(5) IHEN GUIDO 530 

478 PRINT 


430 INPUT"WIE IST IHR NAHE "sN2(5) 

490 HE(S)=S:FOR J=5 TO 2 STEP-I > 

596 IF HS(J)<=H3 (J-1) THENS2O 

510 T=HS(J-1): T5=N8 (I-1) :HS(I-1I=HSCDIENSLI-1)SNEÄIEHSLIISTENGIN=TE 

520 NEXTI 

550 PRINTEPRINT"PUNKTESTAND: "PRINT 

340 FORI=1T0T 

556 PRINTNE CD) STABLZEIHHBLH) ENERTI 

566 PRINTS45A, "NOCH EIN SPIEL (J/N)"3: INPUT O8 

578 IFOS="J"THENISO 

580 END 

590 FOKE(1024+X6+32%Y8) ‚207 

‚660 KG=X6+3%(PEEK!343)=223 AND XG)3 AND PEEK(1021#X6+328(YG-11)<>1911-3# (PEEK.1349)=223 AND XAc7R 
AND. PEEK(1027+X6+32#1Y3-1)) 3191) 

618 YG=YE+2% (PELK 1541) =225PNDYG}2)- (PEEK 1342) =223ANDYG< 14) 

620 IF PEEK(1024+KG+3Z#YSI=171 THEN K=INTL(KB+L. IY/DIEWCKIALKIHSZ 
630 IF PEEK(102144G+328Y@)=191 =IIEN PLAY’ OZBAB" 
640 FÜKE (1AP4+4G+32#Y8) . LAS:RETURN 














= LEICHT VERSTÄNDLICH 


DorDRAGON 32 ist in Icbardar Beweis dafür, daß 
man kein Experte in „Computer-Chinesisch” sein 
mu3. um eln Computer-Fachmann zu werden. Zu- 
sammen mit ihm erhalten Sie eines der am sintach 
sten zu verstehenden Programmierhandbücher für 
Basic (deram weitesten verbreiteten Programmier- 
sprache dar Well des je fü, einen Heimeomputer 
‚geschrieben wurde. 

‚Jeder Schritt, jede Erläuterurg ist auch für Anfänger 
leicht verständlich. In wenigan Minuten können Siz 
bereilsein einfaches ?rogramm schreiten, in weni- 
‚gen Stunden werden Sie fasziniert sein von den 
Möglichkeiten, dia sich Ihnen bieten. 

Im Kurs-Handbuch sind 60 Programme eingenaut, 
die Ihnen einehieue Welleischließen - mit fe des. 
vie'scitigen und leistungsstarken CRAGON 32. 


- SOFORT EINSATZBEREIT 

Sie missen nicht gleich mit lam Programmieren 
anfangen. Es gibt ein ständiq wachsende Anzahl 
fertiger Programme auf normalen Rakorder-Kassei- 
ten und Steckmodulen. Sobald Sie Ihre ersten Pro- 
‚gramme schraiben, können diese bequem auf no-- 
melen Kassetten gespeichert werden. 

Dazu ein’aulı Ihnen Kessellerrecorder mit dem 
DRAGON 32 vorbinden und mit eweils einem ainz- 
gen Bsfehl erhalten Sie Zugang zu den prantasti- 
schen Möglichkeiten eires Familien-Computerst 


- BRINGT FARBE INS PROGRAMM 


Neun Farben bringen Leben auf den Bildsch rm. 
Die äuße’st leistungsfähigs Programmiersp’ache 


Misrosoft Extanded Colour Basic ermöglicht es, mit 
einfachen Beiehlen Vorder-und Hintergrundfarben 
zu bestimmen, ener einzelnen Farbtupfer auf den 
Bildschirm zu bringen wder auclı Wie Ganze Fläche, 
auszumalen. 


— EIN GRAFIKER 


Eine tescndero Stärke des DRAGON 32 sind seine 
einfach zu handhahenden, erstaunlichen Grafk-Fä- 
hiakeiten: 8 Grafik-Eildschirmseiten, & ve‘schieda- 
ne Auflösungsgrade von 512 Textstalen (16x32) 
bis zu 49152 Bildschiımpunkten (192x256). Mit 
einfacher kratik-Hstehlen können Sie Linien, 
Reuhılexke, Quadrats, Bögen, Elliosen oder Kreis 
zeichnen: oder Sie entworfan eine Gostalt urd än- 
‚dern dann derer Maßstab von 1/4 ihrer Größe auf 
15fache Vergrößerung! Die Grafik läßt sich zusäz- 
lich auch noch: ber vier rzchtwinklige Fositionen 
drehen. 


- IST MUSIKALISCH 


Volle 5 Oktaven stehen Ihnen für Musikund Sprach- 
synthese zur Verfügung. Melodien sind leicht zu 
progranminieien andKlangeftekte Eeleben die Hand- 
lung in Programmen. 

Natürlich können Ste mit dem DRAGON 32 auch 
kampanizren: Sie gaben Noten. Vorzeichen. Tempi 
eicein -der Compufer spiet Ihnendaekomponiete 
Lied vor. 


- FLEXIBEL UND LEICHT, ZU BEDIENEN 


Die Procrammiersprache Microsoft Extended Co- 
Icur Basic betel dem Programmierer Inzählige Ge- 


Steckmodul- (ROM) 
und Erweiterungs- 


buchse, 


Funktions- 
sicherheit 
jeder Taste für 
20 Millionen 
Anschläge 


staltungsmöglichkeiten. Ein komfortabler Zeilene- 
tor gestattet zügiges Korrigieren von Progran- 
men. 


- EIN ANPASSUNGSFÄHIGER COMPUTER. 


Das Design des DACON 32 ist so ansprechend, 
daß er cioh überall sohon lassen kann, Aufgrund 
seiner herunrragenden Fähigkeiten kann er zuch in. 
der Schule oder im Büro eingesetzt werden. Der 
DRASON 32 te sicher, daß Sie mit derschrellebi- 
gen Wel: der Microcomputer Schritt halten, 


- EIN QUALITÄTSERZEUGNIS 


Der DRAGUN 32 besitzt eine professionelle Schreib- 
maschinentastztur, über Jie Sie die Piogramıne, 
Spiele und Befehle an den Computereingeban. Dio 
Tastatur- bei Computern der untersten Preisklasse 
dit eine Schwarhstelle - ist für starke: Beanspru- 
churg ausnzlent. Die Funktionssicherheit jeder Ta- 
e bestand den Test von 20 Miliomen Anschlägen, 
Nit den Zelen-Editor bietet der DRAGON 32 die 
Mgichzeit Programme besonders schnell und 
leicht zu stireiben. 


- VIELSEITIG UND AUSBAUFÄHIG 


ler DRAGON 32 besitz: serien näßig Ansenitssefür. 
viele Zusatzgeräte zum Ausbau des Systems: 

© 2 Eingänge für Joysticks ‚Spielhebeh), ideal für 
viele Spiele 

@ Anschlußbuchss für handelsüblichen Kasset- 
tenrekorder zum Speichern Ihrer Piogramme auf 
rormale Kassetten. Eirgang fürROM-Steckmodale, 
die unmittebar und schnall gelesen werden. 





@ Contronics-Schnittstelle zum Anschlicßon oinas 
Drunkers, damit Sie Programme, Listen usw. druk- 
ken können. 

@ Farbfernsehausgang und zusätzliche: Monitor- 
‚Ausgang, damit sie Fernsengerät oder Monitor oder 
beides geianzeitig anschließen könnsn. 


— WÄCHST MIT IHREN ANSPRÜCHEN 

@ Sk können dle Speicherkapazität (HAM) Ihres 
DRAGON 92 au‘ 64 K erweitern lassen 

@ In Kü:ze kommt das DRAGON Floppy Disk-Sy- 
stem mit Steuermodul und bis zu zwei Disketten- 
Laufwerken. 

© Noch 1983 erscheint ein Ausbausystem, dasIh- 
nen die Wahl folgender Erweiterungen gibt: 
— biskeften-Beiriebssystem ianstelle das Steck- 
moduls) 

- RS 2&2-Echrittstelle für Netzwerke 

- Zusätzlicher 8-Bit-Nicroprezesor zur Nutzung 
einer Vielzahl von Pragrammen für Beruf und Be- 
treb. 





- SEINE PROGRAMME (SOFTWARE) 


Velo der bekanntesten Computerspiele der Welt 
sind als fartige Frogranme für den DRAGON 32 er- 
hältlich. Von Schach über Kämpfe mit Geistern bis 
hin zu fesseinden Abenteuerr. Die ganze Familie 
kann spielend dis Computerwelt entdecken und mit 
sinnvollen Frogrammen, wie Budget, Adressen, 
persönliche Finanzen und anderen Pregramrren al- 
Is. Möglichkeiten moderner Comauterteshnolagie. 
ohne viel Schwerigkeiten nurzen. Die leicht ver- 
ständlich gesehriehanen Anleitungen machen den 


Eingtiog in dic „Ccmputorci" kindorkeicht. 


= EIN EUROPÄISCHER COMPUTER 

Der DRAGON 32 wurde in Swensea, m Westen 
Großbritanniens von einem Fach-Tezm hür Compu- 
terferschung von LRA3ON Data Ltd. zntwickell. Die 
‚ganze  Erfayrung jahrzehntekangor Entwicklurge: 
und Produktionstätigkeit eteht hinter dem DRAGON 
32 .nd steit dadurch seine kontinuierliche Weier- 
entwickung sicher, 


TECHNISCHE EINZELHEITEN 


© Hochmoderner Microprozessor GBOSE 

© Serienmäßiger Anwenderspeicher (RAN) 32K, 
erweiterbar auf 6dK. Noch 2EK frei verfügbar b3ı 4 
Selten Hochaufösender Grafic. 

@ Sarienmäßig die erweiterte Basic Versior: „Mio: 
msoft Extended Colour Basic” (Microsoft Basic ist 
die gebräuchlichste Basic-Version der Welt, 

DIE VORZÜSE: 

= hechentwickelte Grafikbefehle wie: SET, LINE, 
DRAW, GIRGLE, PAINT 

= konıfo (alle Ausyabz mil PRINT, PRINT US NG. 
- umfassende Tor- und Geräuscherzeigung mit 
SOUND, PLAY 

-aufomatische Femstauenung des Kassettenrekor- 
cers 

- volle Sdit-Funktion mit Insert, Delete, Charge, 
usw. 

© EILDSCHIRM-AUSGABE: 

- 9Fargen 

- 5 verschiedene Aufösungsgrade von 512 Text- 
stellen (16x32) bis 49152 Bildschirmpunkten 


Ansprechentes 
flaches Design 


Reset-Knop! 


Toystick/Spielhehel 
Anschlirsse 


Centroniex 
Druckeranschluf 


Buchse tür 
Kassettenrekarde 


Anschluß fur 
Fernseher (UHF) 


Neizgenit-Eingang 


EinAus-Schalter 


Anschluß für 
taromonitor 





(182x250) be hoher Auflösung 
Hoimforaschgorät (UHE) und/oder Farbmonitor 

@ TASTATUR 

Tastatur in professicneller Qualität und Norm we 

sie EDV-Eingabeterminals verwendet wird 

= weicher, angenehmer Anschlag 

= toher Schreibkomlort 

= Funktlonssicherhelt Jader Taste fir 20 Millionen 

Anschläge. 

@ EINFACHE STECKANSCHLÜSSE FÜR: 

= 2 Joysticks‘Sp elhabel 


- handelsüblichen Kasset;enrekorder leinschl. 
Start/Stopi 

= Drucker (Centranics-Paralel) 

- Steckmodule 

@ 190-setiges „Basis-Programmiernandb.ich" 


und Anleitung im Preis enthalten 





Computerversand H. Schädel 


Albert-Schweltzer-Stiade 1 
3435 Hecsisch Liohtenau 
Tel.: 055024508. 
Preisangaben incl. MWSt., Porto und Verpackung. 
Lieferung gegen Scheck oder per Nachnahme. 
‚Angebot freibleibend. 


Ihr DRAGON 32 kostet nur 798; DM 


Ausführliche Liste mit Informationen 
über Software-Module und- Kassetten 
liegt jeder Bestellung bei, 

















1C:29/64 Sul e G-sulaltsurugun 
iinatien, Fehaci Frthusw @ 

Info 2, 06321191962 Hemmer ® 

Auhhveg 54.6739 Neustadt 19 @ 








Wer ir Deutschland ist günstiger? 
Da neueste Sol und Hardwars aus 
England (auch Rücher) für 2X 81 
V2-20, 2X Spectrum COM 64 und Dragon 
Katalog 1,09 gecen 1.80 ON in Bref- 
wärken. T. dauer, Sultwereveretl, 

Postfach 112243..3900 Augsdurg 


IH9BAR Supeispiee ın Ex-basıc. 
Aution, äpannurg, Spass. Topgra’k 
28. Superfwglger: nur NE-DM (1 
Superreatuspile ur 50-DM Die 
Bpitzensoltwarelit (ab 5 DM) 
Irto gegen BL Plnnig-Merke; D. Waller 
Portengertenweg 57. 6230 FIm-B) 





ZXSpestrun Supersoftware 
Irfo 30 Pf-Freiumschlag. Dipl 
Yarse 469 Gasendrchen, 3 





hg. 6. 








© 1026 zamotwar \64 8 
© RomSpiclo@Notsp @Advent- @ 
© sort gunstgl! 
© dor Mil: Einsteiger fe-Pakel 
(80 PigsrBuch mit "ins&Tikcke 
8.1@ Kemi-Text-+40:2 Bildsch 
ste 1, 30Briem. 


















Spitzen 
eat. Gratiot 
0 ce Liste bei 


ware lit 
Gogen RE 


THasıaa 
630 gbt 
Stetan Venaaren 
Apshorstersir 339, 4300 Essen 11 
Suche TI Olub und ZX-01 Programme, 








@ZX-SPECTEUM 16K: 3 Supar-aclien 
Gamas GMY DEFENDER, aLITZ, SUPFR- 
MUNCHFR. Tilla Graßk u Sumdellekle 








10. DM inkl Gass. u, °orte, Sum 
Weingarten 13, 6451 Scheftlenz @ 

GOMPUTER-CASSETTEN 

mit BASF-LH-Band, 0 18 DM 
je 10 Stück 620 18 cm 
RIFIMUSICCASSETTEN 

mit AGFArSuper-e. 6 60.27. CM 
it 10 Stück cz tm 
Anis Menenlangen au Anfrage 
Ois.umenia-Gassettenstulio 

hartenstr 11, 381 Zwesten. le 


(05628/241, Voreznd per Rechrunt. 


s..o.......0.0 
@ Bowie Total; 100% MOode Fra, © 
@aus England, über 2000 Tiel @ 
1 Orc, Spectrum, Dragın, 2X 
1 VG20,CBM 04," 96 AlerlAuclı 
cwarn. Orunknı, daystinks. > 
@Orc-1 AD. DNA, Gratis Info @ 
© reumschlag an Wincm Sottware @ 
@Pocttäch 1563, 3170 Giitm @ 
v.......0.000. 











MONA © TIEOMA © TIOOnA © 
Extendet-Basic-Modul DN ZU 
Zusätzlich >or» und Vernackun. 
Vaitere Infonmatun. Tubatl Versen), 
Pnsttach ABAZ. 7814 Amttan 


2X 81 + 1K-RAM + Bücher zu verk 
€ Menate alt, DM 250, Tel: 0341144610 











Software we. Lilztelan yayen 1; Rück- 
forte vor, MAHR & MÜLLER Cmouter 
Westing 32.6085 Redstadt 5 








ven über 10D Rempragramme 
ige Programme für die 

Grundereioe 3k, BE und IK 

Häheres ab 18 Uhr unter 0203/43107 


1024, V2:64 2) 01 und ZI Specirm 
Programme a» 3C- DM. (Listing) 2.- DM 
Fassatte Liste u Gr. Frog gegen Rüca. 
M. Holzmann, Post 401,425 Botrup 





\C:20@ über 300 P5M.® 1A Software 
Die neusten Speie@ Liste gratis @ 
A Millor, Rehorw. B, 30C4 \oernhagen 








M 9/AR Ext. Vokabeprogr. 20: 

Late in a Engsch / ca 19 Wk. 

eat A Badantıngen ) deinite 

Umlaute } A Wolke Kıhplz 9 
A772 Dad Sassendor 











rıassan 

Grafic uns Antor für nur 7,50 DM, 28. 
Roulette, Knilel Liste gagen 0,0 DM 
QUIKT. Lossingstr. 24 8411 Lapperschrt 











10/AM-Schtware Ivo _ (Freiumschlag) 
Finke, Faaker-Stn 15 62 Wiesbaden 
seicnee Sprchöllcnapiele 








DW/NO-fach Schndle Kassette } 
Hardware usw. abzugezen, Duisburg“ 
Huneiy Tel 02°96/93522. wach 17h 





VC-20 Superproggamme 3 Sick. 30 DM 
(Große Arswanl, Teleon: 0203725592 








u. Tausche VE-20 Pıogram 
Schule, Van-Cogt-Str 8, 6500. 


2 Fune-S0-Soen) anne 








“ 








© 7K 8° @ Acthnsciele @ ua: Invadırs 
mess © Io 2- @ let: 1021024 








Wir haben ales für Ihren Com- 
Auer  Lber 700 Programme aus 
len Berıchen ! Schon 20 1.00 
international Soft- 
Ländern... Proga- 
Musikerprogamne.. 
Ntoctaufiesende Crafic. Text und 
Dstevenallunu, Disketlenhilen 
jperspele_ und. und. und... zu 
Superpre sen“ Pregrammgenerator 
rhnn ah 20.1 Sıpareinsige Pan 
rammpaketeab5, IM 
inte essante Zusammenstelung) 
Textyeranbeitingspregramme ab, 
24 Sturden Versandsenice! 
Für Kataloge und Programme! 
Cxklusiv bei uast Statistik. L 
Il! Das- Spdzerprogramml >ro- 
\eiter 20/EAN Lehrpragranmme 
aus ale Facıam Ada! 
Das Suparhirh ist da! VL Arnd 
je Supereomputer uner der Lupe 
Mit wer 200 Sciten nloma- 
on und Programme / Tips und 
Knie, weich» auch der Anfanger 
solat verwenden kann 
Mohr durbeı in ngerem Kalalog 
fordern Sie, heute noch unser 
Superinfe. 993, mit vieen Tips 
WU Tas nl Es Kal sicht 
(Rücaparto) Schreiben Sa heute 
noch an Fa. Schlüter, Software- © 
Diskon, 4370 Marl ® 


“... 
soo. 




























s.... 





ziration des Spechrum-Spielens @ 

ımpest (46K), ‚byslick IM 4 
Gentipedsa (ABK) Joyotick DM 2 
Startrek (A8K) nur DM 22- 
Viele wetere Spek, auch 16 K @ 
ind erfältlch. Bestellung une/ @ 
oder In (og. Freiumschläg) bei @ 
"ERM Scitware” Borks Baginskl & @ 
Peter Steda, Ssonecksrane 8. @ 

8300 München 60 
auch ZX-81-Spiele erhältlich 











. 
. 
. 
. 
® 











Internationale CBM-64 Sattware, 
Größte Auswahl neuste, teste Programme 
Kleinste Unkosten. Tausch, Verkauf 
@ inlo: 2-OM-Narke: F. Sprenger, 4300. 
Essen, Brästertt. 18, 0201,796559 





Soft fir 7X MI 2 TI 90 7 V6a0. 
iste gegen Freiumschlag dei CIG, 
Sancnistraie 2, 5300 Bonn 1 








An ale T 9S1AAdesirer 
Vfo-Spie-Progremm mt. Lisäng 
und Beschreiburg. Jede Zeile ist 
weireu ek Mali Ein 
Steiger une lee ie dan 
Ablauf versteven wolbn. 
Kassette DM 27- 

© Döhmarnaldste. &, 810° 


alter Poggel 
Hagelsbidt 








Imagine Software - Spectrum 6K 





@Aicadia - Das Superschnelle Ras 
piet ver Gefahr 
@M Didduns - Das Abentererspiell 


«ämpfen Sie Ihrem eddy den Weg ei) 
@Schizeids - Ein tlls 30 Spa - 
«nen Sit Ihr Aaumgchift retten? 
@dımping Jack - En imes Spiell 








voll Spa und Vermücktheien 
Jede Cessetie 2800 DM, Versand nur zer. 
Nachrehme. 
Camputer-Soltware-Vessand 
LA. Manero Srchod 





Posttach 731165 @ ARD Racın 7 





CRM 64 Autostart: Allo mt Hille 
von AUTOSTART abgespeicnerten Prog, 


starten mach dem Laden salorl 
Zustlähe Veriogelung von 
Stop‘Restore möglich (nur fir Cas- 


setto) DM 98,: Vebesssere Scroltou- 

ner in Datazeilen DU 29,: Lieder“ 

ung aut Casseite er NN. Kelermann. 

‚Angermunder Weg d, 433 Ralingen 
Teieton: 02° 027470309 


VC20 Prrg. alle: Art, 


sehr Big 
& out. il Qual-Cass. & Versand 
@ 20 Frog. CV IM 30-@ 20 Pon.aller 





Art MO, @ 15 Prg.2 6/15KBDMSO,- 

Schnellste Liderung von H Wall, 

Tangstester Sr. 5, 2080 Pinneberg 
into Tul. 091027293 


An alle VE-20 Besitzer, 

Wolen Sie Ihre Programmstmmlung 

erwälze? Dam sul Info (hDM) 

in Briefmarken) znfardern bei 

Horst ierendar, Buneteite 13 
3413 Meringen 2. 








@ 3 Spiee nr 10- DM 
für eden Sinckair 021989:9 











38/AR @ Und ea gem ab @ D0/an 
Die detal irren Ext Bas. Spiele 
für den TI OA Jetzt die 
Unapene rutzen And sort Super“ 
Info ordern! Gagen 80 Pf Marke bei 
@ ee. Schubert, Londanst. 9 
3400 Göttingen 





IA 


ZU Superare.; Frooger, Pucman 10,DM 
Tookit, Meader 15-DM, Cr. Info. bo 
Engstien, Onghufersi. 10, # 4020 Umz 


Riesenangehot an Hard uSoflware 
(Programme Module) Tür 11 SulaA, 
OB. 63, Irfo co. DM {1: LSV Riepet, 
Serloßhofstr. 5, 7324 Rechberghaisen. 


Super VO 64 Software ie neusten 
Masch-Games. Gleich Ust anfordern 
‚gegen 1, DM von D. Schi, 
Fr-Elwnt=St, 52, 8284 allerlei 





16-201 Die Gesten Spiels für GW! 
17 Spiie 15, DM, auch Tausch, zB, 
Pac Wan, Scramdle, Supertilig ab 
0.50 Pf Info0.8) Pf,an >, Langens, Sche- 
venhofe: Weg 44 d, 56 Wupsertal 1 







Unglaublich! 
/AR rag: m Ext-Basic 
ost mallianal, Gleichungen 
fast alen Formaten mit, sine‘ 
Unbekannten. Wo ein Minach @ 
Stunden rechne, Drauoht Oiscs @ 
Programm kaine Minutol Cass. fü @ 
1S-DM bi ASchesreneic 














OR I @ ONC ı @ DR ı 
Originale Prog. aus Endand 
ca. 100% Maschne CoteSoltwart 
2.8. Centipede, Hopoer 4 vincht 
Jede Gäszette DM 33, 

Freiamschlag + DM 13: (Market 
A Quian "Windmil Software” 
PF-1563, 5170 Gihorn 














Speztrum Spectrum 
Originale Programme aus England 
a 100% Machine Code Soflwant 
2.8 Maze Death Raca, Blast Hunt 
Jede Cassette DM 28.I 
Frelumsenlag + DI, (Marke 
A. Oulan, "Windmil Software" 
© Rıs6a 3170 Qiorn @ 





2X 81 Super Maschinenprograrıme zB 
Break-FGM (unterdr. alle Seibel“ 
tenen Cassellen). Hachaull- Griphik 
DO2 macht del, Cass. lesbar, Sprache 
uvm. Nur Sass-Sotware, nfo on. RP 
Schramm, STorstr 64, 0100 Camisch-P 








© TI@BJEA @ ZX Spectrum (13/46) @ 
Sormare-Verkau is) une 


Tauschll (un. Spiele) nie 
gern 50 Pf. van HL Songespeick 
Wilsenterg 6, 5768 Sinden a 





YC20 Wahnsinn! Suptipreise: 2.8 
Mosulpogr. 2-DM, +8, +18 usw. ab 1.: 
Nowote Lioie  aesen _ Fückporte 
Bei Matt. Gärner, Schwarzwald: 
Ring 46, 7505 Stingen-. 





Spestum/Atar/V0-20 
Software aler Art: Businoss 
Schule, Spice. Neu: ine auf 
Kassetie cegeı genaue An. di Ce- 
rates 4 3 DM, G u G. Sollman, Post! 
2581, BULL Fränklur/Main 1 














Verkaufe VC-20 Software 
Info: Freumschlag oder B0 PL 
N. Henniager, herm-Fiiserstr. 16 
6230 Hofheim Te, Tel-OD13212-722 


V620 Anınevers- BK-Rommedulspiele 
Info gegen Freumschag dei * 
© Pico, Rüschwg 11, 530 Trie- 


Ibrahıre ven 8 St.2 gratis 


TI 96JAN Sokwarı - Service, 
Superprogramme aus aller Welt 
Programmkasseite: (Int g. lckpartar 
99° Service, An de Weile 2, 
3160 Lehr, Tel: 05132154314 


© VC-t4 @ @ TO>-Sonwere gegen 
Unkostenbetellgung oder Tausch 
Info cegen Freiumschlag. U. Stahl 
Kuntzesir. 3, AU Essen 1 
Telofon: 0201790306 


no 1020 Supıspeke ame 
@0e Tuscı und Verhaul we 
Liste: aenen Tausehliste, oder 50 PL 
Rüickponto, 8. Thara-Sch, Elsa 
BiendshönrSti. 96, 7430 Metzingen 











TI 99/EA = ersikl. Software = T u. ExB 
Liste gg. Allcsporto: A, Fleischmann, 
Talaactstr, 052 Altenchrl Oh. 





00 2X31 Solt- nd tarcwan @@@ 

zu Sonderpreisen, Ind gg. DM 1 

Rah Sehneeler. Dralkstrale 18 
6720 Speyor 








oo x 
dere Menge 


Sputun @ne 
Spiek,  Daikien 
Wie uw für Sinclair 2% 
Spretrum. Kostenlosss no bei 
Fr, Neger, Louchtenberger Str. 1 
18473 Prod, Cart genügt 


V620 Venen Systemwechsels vor: 

kaufe ch meine gesamte, Software-Pig 

im Wer: von ca 5090. DM für 60, DM 

Tolston 02.08 -8408 II ab 1.00 Uh 

©. Zuesick, Breicher = Strade 42 
0C Oberhausen 1 








CHIENIIET BIETTTE IT 
Supersplele u Superpteier ZB 
Castle Frankenstein. Lander  Flak- 
scharfschüteen uva info gegen 
Freumschlog bei Ch. Budoschenski 
Dortorerat; 427, 4630 Bochum 


Die Offensive des VC-20: 
‚300 Art. (Hard und Sotware) 
‚spez. lür VG-20 Erthusiastan 

‚Kosten. ‚Katalog gegen 

Aücep. in Drem = weilte 100 

‚Spitzenprogiamme aus England für Z At 

= Spedun-O. 6d-Elc-Katalog_ acgen 

300 0m in Heim Crgesat - 

Hauptst 165, 8752 Manaschat 


ber 





E20 Medulbox ( 5 Steciplätze ) 

140- DM sowe andere Hard- und 

Soltware. Barkus Holzırann 4220 Bottrop 
Postfsch 401 







Spectum Specheerwiter 16 - 484 
890-DM,And.Buc0e.0521,882897 18h 


TU 94a 
megule bill abzugeben, 


Spectrum *EK u. 2X Printer u. Lit. 20DM 
RezSterpcE 152. |00DM.0223463662 


# Retorder + dw. Spie- 
02461185021 








2X 1 u. 1EK u Dracker u. Literatur, neu 
VHB #30,- DM Teizfon 06144441754 


‚Sharp WZEIR Neu 220&-AM, O61A72477 





Profi dopstick Super 2000 mit 
Faueremot m Grit u Bocanpat. 
DM 30,95 incl. Porio für VO 20764, 
Ai 00/800, Mec E01 ua 
Fa Frohmer, m Scholbrauk 87, 
43 Essen 12, Info g. Freumschleg 





T 90:4A u. Ext. Eagie u. DiHandtuch u, 
Ausetl. Rab. u. Kass. Rec u. Jay 
Sicks U de Menge Progamme 
VR800, 3 Te 02076701561 





Erw. a. 4BK. 1. 2X Spectrum 890 DM 
eyes, Ralıserstr. 58, 4000 Viersen | 
Teiedan 071627206, 





281 u Vörckanı u.3 Sicher u Soll. 
Zu vorcauan.230,- DM TaL:0250821077 


T99MAı Rer. Kazelu Ext Bas.uSchacn 
u Dilemery viele vom u doystick 
VB1100 DM. eL:00BE473644° ab18 Uhr 





VE2U + ZEK/EKHOM eingeh. W. Maniter 
«Toolkit, Datzsatte Joy. Piogremmo 
Literatur CM 350, R Naues: 021517 
631925, Krelid, Schwertsirde 95. 


@ Recorderinbriice @ @ für 
VG 2O.VE 647 alle CBH. Jeder Recorder 
u Tunlsamly als Dalenspeuhe 
Fertiggerät im Seh mit Steskern 
39. DW, Fa. Bolltoyne 1, 2225 Schar 
stedt, tel: OABUSYSEU, "Nacmahmer. 


Gommadore 64 OM 883: neu 
Floppy Disk 1ö4t = DM 398- 
Zusehtr urd andere Trpen auf Anrage. 
W. Hautn, Waisenhausstraß 8 

4200 Doeriusen 12, 02061892355 
Versand ps N + Pia + Vepacsung 


ZU 81, 32 K, Grote Nemctoch-Tastatır 
3 Bucher, O-Savo, M-Cooer, Schach — 











vide wallem Spike Nauprek 
1000, DM für DM GCO,.. Alles 
ca 3 Monate alt Tel: 07117633857 
ve.64 

ve 

VO 84+Delselie 

Vers ger MN, Preisliste B6, Fmiumschl 
Mierocimp-Vertnieb, Postt. 1343 
832 \eusass  (eleten: DSENJADT UN 


ZKI+16: #3 Bücher 5 Software- 
Cass., Preis: VB Tel:06175,791369 


TI 994A + Ext Basic + dystiec 
+ Recorder + Rac. Kabsl LM 750- 
Teiefon 02571.51808 





@ TI 09j48 u Ext Basic u daatsen Ar 
orstix + Sortw TaeL:07 1E5162850 


ZK81 u. 1SKPam u. gr Tastatur u HRG 
und Saltware (6 Cassetten) für DM 425 
Tele: 0526060830 ch 15 Uhr. 








@O 0 TION/AA © Pryranmı @@@ 
to. 50 PI ‚Brim) dei Axel Kocn 
@ Dahlenweg 44,7513 Stutersee-1 @ 














Never N6:20/6-54 Basie-Sompilert 
Programme laufer bs 30 mal ss 
schnell In 50 Pl Klaus Raczec 


WirkrathebeStraße 12. 5°40 Erkelenz 





ZX B1:6AN/Tastatır. u Prog. u. Bücher 
503 DM. A-Kenzer-Ganchofestr. 12. 
B/IU Fankantial 





VE-A4 u Floppy 1581 u Niraseite u vie 
Lektüre zu veraufen. Alks neu 
VB. 1900,- DM. Aucn enzele, 

Telefon: 06°1/811484 





2% 81 u Monitor in 1A Zustand, Nur 
für 0, Wei U Tal DANAARRIR 





6:20- und was sannt 
Fragen Sia ba Mirka an 

Beste Hardy Software 

Zu Einsteigerpreisen 

Info u. 1 Prog; -Listing für 1 DW 
Mürka, Retdoimwez TE, 1 3erlin 45 





15 20 04 K RAM mil Pseualloppy 2a 
© @ 4080 Zeichenkarte 235 DM 
tezkphtzeweierung 53,- DM 
Int 2, 06321/31942, Hemmer @ 
© Mihleng 54.6730 Nousiadt 19 ® 












ONE 1 48K 598; DU 
ORG Farbetucker 850, DM 
X Spectrum \6K &.48K 
Srectum Zrweiterung 16 zul ABK 
MAIN & MÜLLER Computer 
Westring 32 
6C86 Riedstad 5 





DIKEITERTEN 
© @ Sol. und Haxware lürVC-20 @ 

#.K Speichererw. m. Scha. 95, 
16K Speichererw. m. Sch. 16). 
CK RAM Kate 2a, 
nick Sare Steckmodul 





@ Maschnensprechmedu 50; 
© Guphemcdl 5. 
© Pogrammerhilemxlul 59) 
© Malulax 3 Steripl 160) 


un ? Steckpl 
40/80 Zeichenkarie 
soysk 

Epromm karte 
‚Epromm Brenner 
Über 200 Froge 
2; 











. (une DBM, TI 8 
‚Aka. Andde. Liste DM 3- in Arietruerkan 
Commodo e-Userpart-Stecker DM 9.85 
Haube 5,-Di Neufür 2X; Monidrarechluß 
Iertig DM 20,-,Auto-Repeat Ferig DM 15,- 
Load-Sonfroiler.Leeroatine5.-. Schaltplan. 
Wemctect-Ran 15K/32K: DM 10:. Ber 
schrabung freier VO-Adrossen: DM 10, 

E’satz für &K-Rom Ein Epiom, indem Se 
dei Bedart auch System-Funklionen wie 
28. LPomt List ei ande künnn 

(nachen wir zuch für Siel: DW 50-. Ale 
‚mit genauer Anleitung! Bei Voraustasse 

ik. Porta sonst zUSazıch, 

















TI 88/44 einschl Peipnerie zu 
kaufen gesucht Raran Atelheg- 
St 36. 6000 Fracklun BC 








Guche fr YO 04 Boote etc Disk 
FE Pıetz 623 frankfurt Eepenstr, 58 





Suche Frosger 
an Mayen. 39 
Hüttenwez 36 


ler Pimunle für 
U Theis, Schützen 
6060 Frankturt!M. 70 








Tausche 2X-Epsc:rum Softwano u. Bpile 
Wernar Eraut, Hrscigraben 26 
5003 Kein 90 





© Tausche VO 64 Sıllwir @ 
into DM 080 @ Christian Mühen 
Montzsaße 70.4300 Lssun 





Tausche 2X &pocırum Soltwaie vorzugs- 
weise Spele Tel:021 1083137 





00 16:20 Piogrimmausch © @. 
Uste an: Thomas Name 
Coercelerstr 6, 0260 Offenbach 





CRM 64 @@ Tausche u Verkaule @ 
Spitzanpragt. (HER-Nasen u. 1or) san 

Niste eo Felunsch. an 
Sg Gedt, Michtw. 17, 8501 Nen- 


m alle Coour-Gene-Besitacr! 
ir suchen Pogramme, _Hartwae- 
Tas, air Tricks, Ti und 
Mnifle zur Neröffenllchung 
Info een  Frelmschlig von 


Erukeliauı, Pustkich 2607 Achim | 





Tausche 2X  Specirum-ragramme 
ste dile an Worael Hoch, Boyne= 
bungerstr. 2, SaAU Eschwege 















Neues 
Home-Computer- 
Zubehör 








SPECTRUM Centronics Interface 


einschliflih 
-Parallelkabel 
-deutscher Treibersoftware 
-deutscher 3edienungsanleitung 
-deutscher nterfacebeschreitung 
-schnelle Grafikunterprogramme auf Kasset:e 
(Harccopy für Eason urd Epsonkonpztibi> Drucker. Andere auf Anfrage) 


198,- DM 


Übrigens: Unser Interface kann man auch für Steuerungen, 
Datenübertragung etz. benutzen! Entsprechende Routinen und 
Beschrelaungen werden mitgeliefert Natürlich sind alle 






direkt ohne Peribox 
arzustecken (ohne 


für TIBV4A 
Kabal) 


Beschreisungen In deutsch! 


TEXTVERARBEITUNG "TASWORD TWO” 
54 Zeichen pre Zeile auf dem Bildschirm sichtbar. 
"Ausdrucke mil unsrom Itrfac aufjeden Parale- Mazrix-oder Tyoenad-Drucker 


nır DM25- 
















erspart umstecken des Antennen. 
steckers für Benuzung aines Home- 
Computers 


Fordern Sie unseren Sonderprospeki an: 
Tasword Two. 
Masterfile dan l .. 
Omnicale (Tabellenverarbeitung) 


Versandanschrift: JOYSOFT 


Bahnstraße 50, 4030 Ratingen 
Telefon: 02102/25490 





nur DM 795,- 
Neuheit; 
Vier-Farb- 
Drucker/Plotter 
nett eingetroffen mit Parall 
fü TI99/4A, All, VC, Col 


Ringstr 70 
2200 Kiel 
SE ZEROr Teleion (0431) 676768 
ringstrafe Telex\7-2627435130 


























Auftrag für Gelegenheitsanzeigen in Homecomputer 








An Homecemputer Nas ınd Admeaon 
Westring 59c 
Postfach 629’ Abo. zen 
3440 Eschwege 
Unerschri Ich zahle sdlot nacı Rechrungserhalt Detum 


Unter der Rubrik „Kleinanzei- 
gen" veröffentlichen wir Ge- Ich wünsche fgerden Text zu veröffentlichen: 
legemneitsanzeigen für Ver- 
Kaufsangecote, Kauf und HILL — 
Tauschgesuche, Kontaktauf- 11 yell 
nahmo bzw. Erlahrungeaus- 

tausch usw. 














Preise für „leinanzeigen“; 
Private Gelegenheitsanzeige 
je Druckzeile 5,— DM inkl 
MwSt Chiffregehühr je Anzei- 
ge 10.- DM 


Gewerbliche Gelegenheitsan- 
zeigeje Druckzeiie 7, DM inkl 
MwSt. (dürfen nichtun:er Chif- 
fre erscheinen). 
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es ei 1: U EIETERN 
SIERT IENEN 
ejejsjagegele] 
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jeisjejmj@ejel' 
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Zutrattandes arkrauzan 
sich [) Software suche D) Hardware © Tausch DI) Versen. 
biete an [] Sattware biete an D) Hardware. Kontakte DI) Caiffre 

















Software-Service 


Programme auf Diskette und Kassette 


Nicht jeder Leser hat die Zeit und die 
Gedu.d, alle Programme, die er gerne 
hätte, in sein Gerät einzutasien 

Wir haben uns deshalb überlegt, daß es 
das einfachste ist. wenn wir die 
Programme, die wir ohnehir. auf Dis- 
keite oder Kassette verliegen haben, 
diesem Leserkreis zum Selbstkosten: 
preis (Kopierzeilaufwand, Dutenirä- 
zer, Porto, Verpackung und Mehrwert 
steuer) anbieten, 

Es genügt jeweils die Angabe eines 
Stichworte, zB.; VC-20-Disk Helt 5 
oder Sinclair-Kasseite Heit 5. 








Bestellungen Inland: 


Gegen E:nsendung eines Schecks oder 
Vorauszahlung aufunser Konto peider 
Kreissparkasse Eschwege, 
Bankleitzahl 522 500 30 

Kio.-Nr. 45 22.934 

senden wir Ihnen die gewünschten Pro- 
gramme schnellsimöglich zu. 





Bestellungen Ausland: 





Lieferung noch nicht erhalten? 


Bei Überweisung aufunserKonto kann 
es bis zu 2 Wochen dauern, bis wir Ihre 
Bestellung in Händen haben. 

Oft passiert es, daß auf der Überwei- 
sungsdurchschrift weder Name, noch 





dann Schriftvergleiche ni 
sind, kein Ergebnis) 


Wennes beiuns besondershektisch zu- 
geht, Jann kann es schen mal pas- 
sieren, daß es mit der Lieferung etwas 
länger dauert. Vergesser Sie bittenicht 
Der Kassettenservice ist ein zusätz- 
licher Service von uns, der Ihnen, cem 
Leser, Tipparbeiten ersparen soll (Sie 
kennen den Versuch einer anderen 
Zeitschrit, dieses per Lichtgriffel zu 
ermöglichen). Wi: tun unser möglich- 
stes. Aber Pannen sind nie ausge- 
schlossen. 

Bitte, haben Sie in sclel.en Fallen Ver- 
ständnis. 





aus Ileft 9/83 


TI-99/4A K 8,- DM 
Spielautomat 
Fallschirmspringer 


X-81 K 10.- DM 

‚neymed 
Maschinen-Programm-Loader 
Schwarzes Loch 





Commodore 64 K 8, DM 





Weltraumschlacht 
Wildwasser 
VC-20 K 10,- DM 
Joypainter 
Survival 


Star Tramp 


Apple II D 16,- DM 
Kugellabyrintli 
Gärtner 





aus Heft 10/83 


C 64 K 10,- DM 
Phoenix 
Invadeıs 
Fallschirm 


Apple IED 15,- DM 
Helizopter-Attack 
Karylon 


TI 99/44 K R,- DM 
Kniffel 
Mauerklauer 


ZX-B1 16K K 10, DM 
Memory 

Lift 

Drakulas Diamanten 


Spectrum 16K K 8, DM 
Ufo 
Lift 


IRS-BO K 8, DM 
Quadralo 


YC20 K &- DM 
Skipping Ball 
Einsiedler 


Dragon 32 K 8,- DM 
Chip Out 
Säulen 





SPEGTRUM SOFTWARE 


Bestellan Sie noch heute unseren Katalog mit dataillierten 
Programmbeschreibungen sowie Soft- und Hardwarelips 
für den Sinclair Spectrum gegen Schutzgebühr von 3,- DM. 
Sofort lieferbar: Mehr als 100 verschiedane Kassetten 
frisch aus England importiert. 


Die Leferung durch Varsand erfolgt ausschließlich peı Nachralme 
‚odar Voreusschsck plus $,- DM Versandkosten. 


Die Auslieferung erfolgt am gleichen Tag des Bestelleingangs, 
wean die gewünschte Kassette auf Lager Ist. 


Telefonische Bestellungen nimmt unser Anrufbeantworter entgegen, 
Tag und Nacht! 


Fordern Sie auch unsere VG Softwareliste 


JOYSOFT 


Bahnstr. 50, 4030 Ratingen 
Telefon: 02102/25490 





Versantanschrit: 








LOMPUTERTAG 


ERKELENZ 


‚Amateure, Coı relabs, Schüler-AGs 
‚sowie Hersteller und Verlage aus der R} 








‚ganzen Bundesrepublik zeigen neueste 
Geräte, Programme, Projekte und Literatur 
für Boruf, Schule und Freizeit 


EEE: | 
hHonecomputer ” 


RAHMENPROGRAMM 


Computerflohmarkt, Tauschhörse 





Computerwerkstatt des ZENTRUMs mit Datei-, Kalkulations- 
und Textverarheitungsprogrammen in Aktion 

Für Theorotiker ; Literaturstand 

Für Lehrer ler; 

Schüler AGs zeigen den Einsatz von Computern in der Schule 
Infostand der LEHRER-ARBEITSGEMEINSCHAFT DES KREISES 
HEINSBERG FÜR DIE ANWENDUNG VON MIGROGOMPUTERN IN 
DER SCHULE 

Für Audio- und Videofreunde: 

Großkildprojektion 

Ausstellung aktueller Geräte und Systeme 

Vorführungen des AUDIOVISIONS-CLUBS im ZENTRUM 











m 





| (ÜBER) 


‚8./9.0KT.1983 


Ort: Cusanus-Gymnasium Erkelenz 
Allgemeine Öffnungszeiten: 
Samstag, 8. Oktober 1983, 10-18 Uhr 
‚Sonntag, 9. Oktober 1983, 9-17 Uhr 


ompLier, 
Pi“ 


zur nterhaltung 





LEBEN 
IM ZEITALTER DER ELEKTRONIK 





Für Spielfans : 

‚Aktionsräume mit aktuellster Hard-/Software der führenden 
Hersteller zum Ausprobieren 

'@ Spiele mit Computern 

© Elektronikspiele und Schachcomputer 

@ »Telespiel 1983« 

Für Alternative : 

‚Ausstellung anspruchsvoller Erwachsenenspiele, Simulations- 
‚spiele, Denkspiele, Planspiele 

Für die Kleinen : 

Kindergarten der Spieliothek mit Betreuern 


Für Hungrige und Durstige : Cafeteria des ZENTRUMs 


Für Alle : INFOSTAND des ZENTRUMs 
(Ganz aktuell: Die Bundespost zeigt »Bildschirmtext«. Besucher können sich unmitteltar beteiligen. 


Nur am Samstan: Gastreferent Prof. Klaus Haefner aus Bremen 


15-16 Uhr zum Thema »(ÜBER)LEBEN IM ZEITALTER DER ELEKTRONIK und über sein Buch »Die neue Bildungskrise« 
19-20.30 Uhr zum Thema »Computer in der Schule« besonders für Lehrer, Eitern und Erzieher 





Veranstalter : Computerarheitskreis im ZENTRUM FÜR SPIEL- UND MEDIENPÄDAGOGIK e.V. Alte Volksschule Stahe, Bundesstraße, 
5133 Gangeit-Stahe, Telefon 0 2454 / 1497 


Eintritt : Erwachsene 1,- DM, Kinder / Jugendliche 0,50 DIA 


[FOR RTARı 400/800 
LONPUTERS Bir 


WICOSOFT * Nordstraße 22 * 3443 Herleshausen * Tel. 056 54-6182 


Bitte benutzen Sie Bestellkarte im Innenteil des Heftes! 





WICOSOFT * Nordstraße 22 Herleshausen * Tel. 05 


Bitte benutzen Sie Best: nenteil dı 





nom sorrwanzg: 





ROMIK SOFTWARE 7 


SPACE ATTACK 





ER arg) 





EUTTETTEIRZTTEEE 


RDMIK SOFTWARE 


WILL YOU BE THE 
SUPREME WORLD 
2 CHAMPION? 
ULTISDOND — SHARKATTACK. 
1 GUNTHESIZER a 





WILL YOU BE THE 
SUPREME WORLD 
CHAMPION? 





OMIK SOFTWARE 2, 


B SER INVASION 





SUPREME WORLD 
CHAMPION? 


ROMIK SOFTWARE 5% 


NOONS OF UJPITER 









WiLL YOU BE THE 
SUPREME WORLD 
CHAMPION? 






Händleranfragen erwünscht. 






® Softwareautoren gesucht - Info anfordern! 





SOFTWARE, 


MAzuss 


FA! 





